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Racetrack 
A trackful of hazards. HH 


Turtle Graphics ae 
Create your own geometrical patterns. ee 


Numbfinger ae ae 


A fast and furious game of memory; your fingers follow the 
numbers. The Le 


Cairo 
You are a harassed taxi-driver in one of the most crowded 4 
cities on earth. 

fie (le 
Little Eliza tes 


A tongue-in-cheek session with a cut-price psychiatrist. Ens 


Life Pi tt 
Birth, growth and death in a sci-fi colony of organisms. Ht 
Fairground Organ Pt | 
The old style of funfair music. Reza 


Space Storm Zee 


A storm of asteroids that your space-ship has to destroy. 


Outlaw nam 
You're the Sheriff of Mean City and the baddies riding into ie ae | 
town mean business. 2a 
3D Super Plot oie 
Draw three-dimensional figures, view them and change them. | | | 
Bas 


62 Codebreaker 
Break the code before it breaks you. 


Masterword 
Similar to ‘Codebreaker’ but uses words. 


Bomb Squad 


Your space-ship goes on a bombing run. 


Dome Dweller 
A variation on one of the most popular computer games. 
You play the ruler of a space colony. 


Wordsquare 
A computer imitation of a sliding plastic games puzzle. 


Tyranno 
You do battle with a prehistoric monster. 


Franglais 
Let the computer take over the burden of writing bad French 
for you. 


—H Rain Catcher 4 
or A colourful game of reflexes. ee 
| | | 99 Reversi | | 
eB A classic game of placing pieces on squares. me 
| | | 106 Poet (il i 
| | Poetry - as 4 computer would write it. | 
( 
111 Magic Square 
an A number guessing game. —- 
Re 114 Romland : ie 
ae Beasts and geld mines and intrepid you. Pond 
gia 123 Gomoku | [| 
| A very popular game. You have to get five pieces in a line ae 
before the computer does. 
fal renee ai 
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= Elephant blobs stampede towards you, the human asterisk! + 
| | | 133 Character Definition il 
rt | Writing your own character shapes. || 
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ZEe String art patterns. 
HS 141 Cat o’Six Tails 
eae Ba Psychedelic curves. 
Peele iho 148 Chess Art 
ie Gel ial Colourful ever-changing squares. 
ae 145 Prison Bars 
| | ft | ‘Moiré’ patterns. 
air 

147 Eight o’Clock 
ae AacGel ea Laas 
| | 7 | 149 Polar-plotting 
Plea Flower-shaped patterns. 
Peele, Cartwheel 


Pict Cartwheel effects. 
HHH Quadrant String Art 
As in ‘String Art’ above, but in four quadrants, three of 
HHH which are reflections of the pattern in the first. 
Oval 
+H Moving ovals of colour that finally spin. 


Goodbye 


A surprise farewell. 


Typing in Program Listings 


Character Count Scale 


Welcome to the first BBC Book of Listings. There are a host of 
games and other programs for you here. They range from arcade- 
like action programs, through board games which will tax your 
wits, to some startling graphics demonstrations. 

We've tried to make the most of the tremendous sound and 
colour potential of the BBC microcomputer, and have written most. 
programs so that they will run on both A and B model machines. 
The programs were developed on both the A and B model machines 
with the 0.1 Operating System. 

Important The listings in the book should not be typed in exactly 
as you see them, but as you would normally (see pages 156 and 157). 
Structured programming techniques have been used as far as 

possible. Although programs may thus be a little longer than 
strictly necessary, they do tend to be relatively easy to debug and 
modify. Many of the program notes include suggestions on how you 
can adapt the programs to make them your own and to develop 
them further, This is always well worth while, for you then put 
your own stamp on them, Further, working through other people’s 
programs alerts you to useful programming techniques. Take a 
critical attitude to everything you see here and improve and tailor 
programs to your taste, 

We have as far as possible avoided multistatement lines and 
unconditional GOTOs; used, whenever possible, procedures, with 
the game being called from a series of procedures cycling within a 
master REPEAT/UNTIL loop; used REM statements, or a line of 
asterisks (and sometimes both) to break the program down into 
clearly separate routines which perform specific tasks. 


Now it’s time to get on with having fun with your BBC 
microcomputer. 
Good games-playing! 


Tim Hartnell 
deremy Ruston 


The Game 


You drive a car (which looks remarkably like a hash symbol) 
around a race track, trying to keep it moving for as long as possible 
without hitting the walls. 

The ‘A’ key moves your car up on the Micro Racetrack, the ‘2’ 
moves it down, while the ‘,’ moves you to the left and the ‘.’ to the 
right. The ‘greater than’ and ‘less than’ symbols on the *,’ and °.’ 
keys indicate the direction of travel the car will take if you press 
these keys. You control the car’s up-and-down movements with 
your left hand, the right and left directions with your right hand. 

There are five levels of difficulty in the game, ranging from 
fairly easy (five) to nearly impossible (one). 


The Program 

10 Title 

20 Set the mode 

30 Send action to the initialisation procedure. 

40-60 Master REPEAT/UNTIL loop. A equals zero unless the car 
hits something, when its value changes to one. 

70 Sends computer to the ‘smash’ procedure. 


80-510 This is the initialisation procedure. Line 90 turns off the 
cursor, the initial direction of the car is set to the right (BS = '*.’ in 
line 100), and the car is placed three characters across (CARA) and 
two down (CARD). Lines 140 to 220 print out the instructions, 
while 230 to 250 accept your choice of the degree of difficulty. Line 
260 sets the timer to zero, so this can be used to indicate how long 
you have managed to keep driving, when the game is actually 
underway. 


520-680 This procedure allows you to ‘drive’ the car, and checks to 
see if it has crashed. Lines 530 and 550 supposedly produce the 
sound of the car being driven. Line 540 prints the duration of the 
race in seconds and tenths of a second in the top right hand corner 
of the screen. Line 560 prints the car in its current position, and 
570 prints a blank in the same position. This happens very quickly, 
so the car appears to move fairly smoothly, even in the slowest. 
(easiest) game. The routine from 580 to 650 reads the keyboard and 
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changes the direction of the vehicle in response to the value 
assigned to A$. Line 590 keeps the vehicle moving in the same 
direction as it was, if no key is pressed. The same line jumps the 
section (lines 610 to 640) that changes the car’s direction if a new 
direction is required. Line 600 is a ‘mugtrap’ designed to reject any 
key press which is not one of the four required. Line 660 checks the 
position where the car is about to be printed; if it finds an asterisk 
there, it knows the car is about to crash and changes the crash flag 
(A) from zero to one. Line 670 reprints the car in position. 


690-840 This is the crash procedure, where the computer is sent if 
the crash flag has been changed from zero to one (from line 60). The 
buffer is cleared (line 700) and the time you have survived is set to 
variable W (line 710) before a dramatic sound of crashing is 
generated (lines 720 to 740). The final REPEAT/UNTIL loop runs 
from 750 to 830; prints the word ‘smash!’ in random places and 
colours; and generates a cacophony from sound channels one, two 
and three. 


Suggestions for improvement 

e Change the sound and cut it off after a second or so. 

e Change the shape of the racetrack by changing the print 
statements 280 to 500; or work out a routine to POKE a random set 
of obstacles into a frame which you have previously printed. 

+ Add a ‘high score’ (longest race) feature, so you can try to better 
your score from game to game, without having to start all over 
again. 

« Increase the number of levels of difficulty. Note that the ‘level 
of difficulty’ (‘D’) works by changing the length of the sound 
statement in line 550. 

« Instead of your having to press ESCAPE and then RUN if you 
lose, program a facility to offer a new game or to end with the 
computer back in Mode 7. 


The Listing 


10 REM Racetrack 

20 MODE? 

30 PROCinitialise 

42 REPEAT 

328 PROCmovecar 

6@ UNTIL A=1 

7® PROCsmash 

8e@ DEFPROCinitialise 

90 VDU 2358202; 0;590;50e 

100° BS="_" 

116 A=@:REM end of race flag 

120 CARA=3:REM position car across 
130 CARD=2:REM position car down 
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140 PRINT? ? >CHRS(130)5 "Welcome to the Micro Ra 
cetrack" 
150 PRINT’ ’?CHR#(i31)3 "The A key moves your car 
up, the Z key” 
16@ PRINT CHRE(131)5 "moves it down, the , move 
Ss you to the” 
17@ PRINT CHR#(131);"left and the . to the rig 
ht i 
180 PRINT’ CHR$(129)5"You have to continue driv 
ing for as" 
19@ PRINT CHR#(129)5"long as possible. Your ti 
me is shown" 
200 PRINT CHR$(129)3"in 1@ths of a second in t 
he top corner” 
2Z10PRINT’ 7CHRS(133)53 "Enter your skill ievel, f 
rom 1 to 5” 
220 PRINT’ CHRS(133)5 "Five is easiest, one the 
hardest" 
230 D=GET 
240 D=-D-48 
250 IF D<1 OR D>S THEN 230 
260 TIME=0 
270 CLS 
PRO PRINT 7% MK IKE EE IE EH IEE EE EEE 


290 PRINT "**+* RHE HX 
eH a“ 

300 PRINT “+ HERE HH ¥ 
KE us 

310 PRINT "x # HHH 

" 

320 PRINT "* HH HX KHERKRERER 

*" 

330 PRINT "* HE eH ee ee ay 

et 

340 PRINT “* ** HH KEKBE 

en 

350 PRINT "* HREK * KERR 
Re" 

360 PRINT "* HE HRE HHRHEKHHEK 

«" 

370 PRINT "“* *%*** HEKERE HN EKEHERE 

ee 

3SBO PRINT "% **** HHH HE * 
HH it) 

S9O PRINT “% 4% HHH KH HEHEHE HH 
4H is 

400 PRINT "« HREKEEE KEENE ENE % 
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610 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


ENDPRO 
DEFPRD 
SOUND 
PRINT 


SDUND 
PRINT 
PRINT 


"3 KEEEKKHEREEEE EEE EEE RRR EE 

1% HE HH HRRREE 

oe ERRK ee 
4 HEKER HX HEEEH 
"RE RE HERE HEH HEH HEHE 
"REREH RRKKRE HEH HERHKE 
* 3640 HE HHH KEE EEE 
4 -% HHH HEME HH 
ee og HH Cee 2 
*) SE-3E- FE JE IE JE-FE FEE SEE FEE IESE FE JE SESE SEE SE FE FE FE EE EE SE ESE SE 
Cc 

Cmovecar 

@,-3,1,1 


TAB (31,1) 5CHR#(133)5 (TIME DIV 10)/10 


@,—-7-RND (8) , 254, D 
TAB (CARA, CARD) 5 "4" 
TAB(CARA,CARD);" 


AS=INKEYS (@) 


IF At= 
IFAS<> 


ii ily At= il} is un 


IF AS= 
IF A= 
IF At= 
IF At= 
BS-AS 


"" AS=BS:G6C0TO 610 
"A”™ AND AS<>"Z" AND AS<>",”"” AND AS<> 


"A" AND CARD?>2 CARD=CARD-1 
"Z" AND CARD<22 CARD=CARD+1 
"," AND CARA>1 CARA=CARA~1 
“_" AND CARA<40 CARA=CARA+1 


IF? (CHIMEMN+CARAtT4S@*CARD) =ASC (“"*") THEN A=1 
PRINT TAB(CARA, CARD) 5 "£" 

ENDPROC 

DEF PROCsmash 


*FX 15 
W=TIME 
FOR T= 
SDUND 
NEXT 

REPEAT 


,2 

DIV 10 

i TO 10 
@,—-15,RND(1@),T 
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76O 


PRINT TAB (RND (30)—1,RND(23) ) 3 CHRS (RND(5) +1] 


28)3; "smash!" 


77@ 
7Be 
790 
Bee 
Bie 
820 
B30 
840 


PRINT TAB(31,1)5 CHRS (RND (5) +128) 5W/10 
FOR T=1 TO 10 STEP 2 

SOUND 3,—-15, 20*T,1 

SOUND 2,-15,RND(20),RND(3) 

SOUND 1,-15,RND(2@) ,RND(3) 

NEXT 

UNTIL FALSE 

ENDPROC 
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The Program 


You control an invisible ‘turtle’, moving it around the screen to 
create geometrical patterns. The commands to move the cursor are: 


init Initialises the turtle to point in a specified direction. (All 
angles are given in degrees). 

anticlockwise Turns the turtle counterclockwise by a specified 
number of degrees. 

clockwise Turns the turtle clockwise by a specified number of 
degrees. 

position Moves the cursor to specified co-ordinates. 

draw Moves the turtle in the direction it is pointing, for a specified 
distance, leaving a white trail. 


These commands are procedure calls mixed with normal BASIC 
statements. The example the program gives draws a hexagon — see 
lines 50 to 100. When you start you probably will want to do 
something a little simpler — maybe just drawing a single character 
on the screen. Children often find a moving turtle easier to 
understand than the grid arrangement usually used on the BBC 
Microcomputer. Notice that the numbers 640, 512, 0, 100 and 60 will 
have to be changed to get different results. 


1000 Starts the definition of PROCinit. 

1010 Sets the variable ‘angle’ to the direction specified, MOD 360. 
Here ‘angle’ is used to store the direction the ‘turtle’ 1s pointing 
towards. 

1020 Ends PROCinit. 


2000 Starts the definition of PROCanticlockwise, 

2010 Decrements ‘angle’. The extra MODs ensure the direction 
(‘angle’) does not become negative. 

2020 Ends PROCanticlockwise. 


3000 Starts the definition of PROCclockwise. 

3010 Increments ‘angle’. The MOD ensures the angle does not 
exceed 359. 

3020 Ends PROCclockwise. 
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4000 Starts the definition of PROCposition. 
4010 Sets the x and y co-ordinates of the turtle. 
4020 Ends PROCposition. 


5000 Starts the definition of PROCdraw. 

5010 Moves the graphics cursor to the current turtle position. 
5020 Computes the new x co-ordinate of the turtle. 

5030 Computes the new y co-ordinate of the turtle. 

5040 Draws a line to the new turtle position. 

5050 Ends PROCdraw. 


The Listing 


19 REM Turtie Graphics 
20 REM See text for instructions 
3@ REM —- <r oer er re 
40 MODE 4 
590 PROCposi tion (640,517) 
60 PROCinit (oe) 
7@ FOR T=1 TO 6 
BO PROCdraw(toe) 
9@ PROCanticlockwise (40) 
100 NEXT T 
11° END 
DRD REM I I EERE ERE 
£90@ DEF PROCinit (direction) 
10616 angle=direction MOD 340 
1020 ENDPROC 
2000 DEF PROCanticlockwise (step) 
2012 angle=(anglet+3é6e-step) MOD 34° 
2020 ENDPRGOC 
30@0 DEF PROCclockwise (step) 
30190 angle=(Canglet3490+step) MOD 3640 
3020 ENDPROC 
4@00 DEF PROCposi tion (xpos, ypos) 
40190 x=xpos 
40206 y=ypos 
4030 ENDPRGC 
5@00 DEF PROCdraw (length) 
5010 MOVE x,y 
5620 x=SIN(RAD (angle) >*Llengthtx 
5030 y=COS (RAD (angle) )*iengthty 
5040 DRAW x,y 


3050 ENDPROC 
5Q6G REM HHH ERE EEE NEEM EEE 
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The Game 


This game tests your memory. When you first press RUN, a digit 
from 1 to 4 appears on the screen, along with a distinctive tone. 
Number four’s tone is the highest, number one’s the lowest. You 
must press the same number, and wait till the number appears and 
the tone sounds. 

Once you've done this, a multicoloured wall of hash symbols 
obscures the screen for a few seconds. Then the first number-and- 
tone combination is repeated, followed by a second one. You must 
press the first number, and once it and its respective tone are seen 
and heard, press the second number. This will continue, with an 
additional tone/number being added to the sequence, until a total of 
seven tones/digits has been presented and repeated correctly. If you 
do this you win the game. Failing to repeat the sequence at any 
time ends the game. You get a score related to the number you 
managed to work out correctly. 

There is no reason why the same digit cannot appear up to 
seven times in the sequence (although that is most unlikely). If the 
same digit is repeated, it appears on the screen with its tone, is 
replaced by a coloured block for a moment, then reappears at the 
same position with the tone being sounded again. You must press 
this digit’s key twice, allowing the digit to appear and tone to 
sound after the first press, before completing the sequence. 


The Program 


10-20 REM statements for the title. 

30 Sets the mode. 

40 A$ is used to hold the sequence, as you can see in the routine 
starting at 120. 

50 M is the maximum number of digits in a sequence. Increase this 
to make the game harder, reduce it to make it simpler. 

60 Z is a variable set equal to one, and is used in several places in 
the program. 

70-90 This routine sets up the digits which will have to be 
remembered, storing them in string A$. 

100 X is the number of digits which must be remembered each time 
a sequence is presented; there is only one digit in the first 
‘sequence’. 
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110 Starts the REPEAT/UNTIL loop for the main game. 

120-170 This loop presents the digits, selecting them from the 
string (line 130); printing them in position in a random colour 
(140); producing an appropriate tone (150); adding a delay which 
gets shorter for each additional digit in the sequence (160); 
overprinting a little coloured square where the digit appeared 
(180); adding another pause (190); and then going back for more 
(210). 

220-320 This routine accepts, and processes, the player’s input. 
Line 230 waits until the keyboard is untouched, and 240 waits until 
a new key is touched. Line 250 clears the screen, and 260 sets B$ to 
the key being touched. A digit and tone are produced (lines 270 and 
280) in accord with the key touched: then there is a short delay 
(290) before the program checks if the key pressed corresponds to 
the relevant digit in the sequence. If not, the program goes on to 
the procedure called ‘end’. 

Line 310 clears the buffer, to be ready for the next key press, and 
320 starts it again if all digits in the sequence have not been 
repeated and checked. 

330 If you have repeated M digits correctly, you are declared the 
winner. You must press ESCAPE to end the program from here. 


340-400 One is added to the number of digit/tones you must 
remember (340); a wall of pound signs or hash symbols appears (our 
printer reproduces the hash as a pound sign - use anything you like 
here); and the screen is cleared (390) in preparation for going back 
to the line after the initial REPEAT (400). 

410-460 This procedure (‘end’) is where you are sent if you fail to 
repeat the sequence correctly. It prints your score, in randomly 
chosen colours, over and over again, while generating an 
offensively random bit of music until ESCAPKE is pressed. 


Suggestions for improvement 

» Allow the player to choose the maximum number of digits which 
will be in the sequence from game to game. 

» Add a ‘highest score’ feature so that the number of correct 
digits remembered in one game is compared with the maximum in 
subsequent games. 

* Rewrite it so that eight digits, positions and tones are involved. 
e Make a provision for the unsuccessful player to be asked if he or 
she would like to play the game again; cut off the sound after a 
couple of seconds. 


The Listing 
1® REM Close encounters of 
20 REM the NUMBFINGER kind? 
3@ MODE? 
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AtS= nun 

M=7 

Z=1 

FOR A=Z TO 
AS=-AS+STRS (RND (4) D 

NEXT A 

=Z 

REPEAT 

FOR @=Z TO X 

L=4*( (ASC (MIDS (AS, O,1)))-48) 
PRINTTAB(M,L+3) 5 CHRS (1268+RND (5) ) MIDS (AS, 


SOUND 3,-15, 40% ( (ASC (MIDS (AS, @,1)))-48) ,6 
FOR J=Z TO 1000-20%x 

NEXT 
PRINTTAB(M, L+3) 5 CHRS (133) CHRS (255) 
=TIME:REPEAT UNTIL TIME-T=50 

CLS 

NEXT 

FOR B=Z 7G X 

IF INKEYS(Q0)<>"" THEN 230 

IF INKEY$(@)="" THEN 240 

cis 

BS=INKEY$ (50) 

PRINTTAB (M, 3+4% (ASC (BS) —48) ) 5 CHRS (126+ 


RND (3) ) BS 


28O 
296 
30a 
319 
320 
330 


SOUND 3,-15,40#( (ASC (BS) -48)),10 

T=TIME: REPEAT UNTIL TIME-T=30 

IF BS<>MID$(AS,B,1) PROCend 

#FX 15,0 

NEXT 

IF X=M PRINT CHRS(128+RND(5)) "You win'!"s 


GOTO 33¢e 


340 
35@ 
360 
37@ 


X=AX+Z 

ELS 

FOR W=Z TO 3*(M+M) 

PRINT CHR (128+RND (5) > "S#RBRHRSREESHHRHES 


BRRHRARHEEREReRHREHE” 


3Bo 
3970 
406 
410 
420 
430 


NEXT 

CLS 

UNTIL FALSE 

DEF PROCend 

REPEAT 

PRINTTAB (8, 8) 5 CHRS (128+RND(5)) "You 


scored "5 ;X-Z 


440 
450 
460 


SGUND 1,—-15,RND(10@)+150,1 
UNTIL FALSE 
ENDPROC 
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The Game 

In this game you are an irate cab driver, caught up in one of Cairo’s 
notorious traffic jams. Your blood pressure rises as you steer 
through the traffic at ever-increasing speed. You dare not crash 
into any other vehicles. If you stay the course, you have won. 

Your car appears as a little red arrow, highlighted with a light 
blue streak. The other vehicles appear as yellow asterisks. If you do 
not press any key, you move across the screen horizontally by 
default; and when you reach the right hand side, you re-appear on 
the left-hand side. 

To move down, press the ‘/’ key; to move up, press the ‘;’ key. 
These keys can be used with or without shift. At each move up or 
down, a short tone will sound: the sound of the ‘horns’ of other 
irate drivers. All the way through the game, the background sound 
is that of your blood pressure rising. When this sound stops, you 
are near the end of your ordeal. 


Note You do not need to move the ear horizontaily, as this happens 
anyway if you don’t move it up or down. 

You can alter the number of other vehicles on the screen by 
changing line 20 of the listing. 


The Program 

20 ‘asterisks’ sets the number of other vehicles on the road. 

30 Puts the computer in Mode 7. 

40 Calls PROCSETUP, which sets up the screen and places the 
asterisks on it. 

50 Initialises X and Y which contain the x and y positions of your 
cab, 

60 TIM is the time delay between each movement, multiplied by 
two. It is decremented at each movement. 


80 Starts the main REPEAT loop of the game. 

90 HIT is a boolean variable which is true if you have crashed into 
another vehicle. 

100 Calls PROCPLACE. PROCPLACE puts your cab at position X, 
Y on the screen. 

110 Resets TIME. 
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120 Gives a delay of TIM/2 centi-seconds. 

130 Turns off the sound channel 1. 

140 Gets a key press from the user. 

150 Empties both the SOUND and keyboard buffers. 

160 Plays a sound through channel 3 of frequency TIM. 

170 Plays a sound through channel 2 of frequency TIM + 1. This 
produces a pleasant chord, with the tone from line 160. 

180 Calls PROCREMOVE. PROCREMOVE removes your cab from 
position X, Y. 

190 If the ‘up’ key was pressed, decrement Y, and SOUND hooter. 
200 If the ‘down’ key was pressed, increment X and SOUND hooter. 
210 If an attempt was made to move too close to the bottom of the 
screen, this line puts the cab on the bottom line of the display. 

220 Similarly, ifan attempt was made to move off the top of the 
screen, puts the cab on the top line. 

230 Increments the X co-ordinate of the cab’s position. 

240 If the cab’s new position is over an asterisk, put HIT to TRUE. 
The function FNADDRESS(X, Y) gives the address of the screen 
cell with co-ordinates X, Y. 

250 If an attempt was made to move beyond the right-hand edge of 
the screen this line puts the cab on the left-hand edge. 

260 Decrements TIM. 

270 Stops the loop either when a hit is registered, or when the 
game has run its course. 

280 If the game ended with a hit, calls PROCHIT. 

290 Calls PROCEND, which restores the screen to normal, and tells 
you how well you did. 

800 ENDs the program. 


320 Starts the definition of PROCSETUP. 

330 Sets all variables used in this procedure to be LOCAL. 

340 Starts a loop, pointing to the left-hand location of each screen 
line. 

350 Puts the code for yellow alphanumerics into each of the 
locations. 

360 Ends the loop. 

370 Starts a loop from one to the number of other vehicles on the 
road, 

380 Picks a random x co-ordinate for each asterisk. 

390 Picks a random y co-ordinate for each asterisk. 

400 Puts the asterisk on the screen. 

410 Ends the asterisk loop. 

420 Sets ‘moves’ to zero. 

430 Ends PROCSETUP. 


450 Starts the definition of PROCEND. 
470 Clears the screen. 
480 PRINTs part of the message. 
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490 If you survived the course, tells you so. 
500 Ends PROCEND. 


520 Defines the function FNADDRESS(X, Y). This function uses a 
standard calculation to give the address of location X, Y on the 
screen. 


540 Starts the definition of PROCPLACE(X, Y). This procedure 
places your taxi at position X, Y on the screen. 

550 Places a right square bracket at position X, Y on the screen. 
This appears as a little arrow pointing to the right in the Mode 7 
character set, 

560 Places the code for light blue alphanumerics at the start of the 
line on which the cab has been placed. 

570 Places the ‘new background colour’ colour at the next screen 
location. This gives a horizontal light blue line across the screen. 
580 Places the red alphanumerics code at the next screen location. 
This makes the foreground colour of this line red. 

590 Ends PROCPLACE. 

610 Starts the definition of PROCPLACE(X, Y). This procedure 
removes your cab from the position X, Y on the screen. 

620 Places a space at position x, y. 

630 Places the code for yellow alphanumerics at the left-most 
column. 

640 Removes the 'new background colour’ code. 

650 Removes the red alphanumerics code. 

660 Ends PROCPLACE. 


690 Starts the definition of PROCHIT. 

690 Resets TIME. 

700 Starts a REPEAT loop to generate random sound effects. 
710 Clears all buffers, including the sound buffers. 

720 SOUNDs a random note. 

730 Stops the loop after two seconds. 

740 Turns off any remaining sound effects. 

750 Ends PROCHIT. 


Suggestions for improvement 
e The graphics could be made more appealing, if you have a model 


B, by transferring the game to Mode 4. 

e The ENVELOPE command could be used to brighten up the 
sound effects. 

»« The asterisks could be made to move as the game progresses, 
rather than remaining static. 

« Remove the cursor while the game is being played, then restore 
it when it ends. 
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The Listing 


i9 


REM SRE RRR EKER LEHRER EH ERKREEEEKEREREREREREE 


HKEEKEKREEKEKKE KHER EEE EKER KEKRERE 


asterisks = 200 

MODE 7 

PROCSETUP 

X=O: Y=12 

TIM=200 

REM RHEE HERE HREREKREKRKEKRHE ER HKRKRDMHEEHEE 


HRKKEHECKEK EEE EEE KEKE KEKREEEKERE 


8e 

72 
1008 
1190 
120 
130 
140 
150 
166 
170 
180 
190 


5,100, 


280 


5,100, 


210 
220 
250 
240 
200 
2690 
279 
280 
290 
300 
316 


REPEAT 

HIT=FALSE 

PROCPLACE (X, Y> 

TIME=0 

REPEAT UNTIL TIME>(TIM/2) 

SOUND 1,90,0,0 

AS=INKEVS (1) 

*FX 15,0 

SOUND 3,7~190, TIM, 255 

SOUND 2,—-10, TIME+1,255 

PROCREMOVE (X,Y) 

IF At=":" GR AS="%#" THEN Y=¥Y-1:SOUND 1,-i 
255 

IF AS="/" OR AGB="7" THEN Y=¥+1:SOUND 1,-1 
2595 

IF ¥>24 THEN Y=24 

IF Y<@ THEN Y=e 

X=X+1 

IF ?FNADDRESS (X, Y)=42 THEN HIT=TRUE 

IF X>37 THEN X=0 

TIM=TIM-1 

UNTIL HIT=TRUE OR TiIM=0 

IF HIT=TRVE THEN PROCHIT 

PROCEND 

END 

REM 446M EHH EMER HERE KHER HEHEHE EERE 


HE KKHEHEEKE KECK KEEAEBREREREERREREE 


322 
330 
3490 
350 
360 
370 
380 
370 
400 
416 
4206 


DEF PROCSETUP 

LOCAL counter,X,Y 

FOR counter=90 TO 940 STEP 48 
? CHIMEM+counter ) =3 

NEXT counter 

FOR counter=1 TO asterisks 
X=RND (37) 

Y=RND (25) -1 

? CHIMEM+X4+24+Y*%40) =42 

NEXT counter 

moves=0 
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430 ENDPROC 
44D REM KER EH EEE EEE EERE EEE EKER HER REREREREERE 


HM EIR ERIE EERE ERE EE ERE 
450 DEF PROCEND 


460 LOCAL 

470 CLS 

480 PRINT ’’’" You had "s3TIM3* moves to go." 

490 IF TIM=0 THEN PRINT 7" Therefore you 
won, !?r"? 


37090 ENDPROC 

510 REM KKK HEH HEM HEHEHE HEHE EKER KRREREREKREE 
HHH HMI HHH ERE HEHE ERK KHEKEKKERHRER 

020 DEF FNADDRESS (xX, Y>) =HIMEM+X+2+Y*#490 

SSO REM 36-9696 HE EE EE EE EE EEE EE HE EEE HEHE 
HEHEHE EE EE EE HE EE HE EH EEE EE HE 

540 DEF PROCPLACE (xX, Y> 

900 ‘PFNADDRESS(X, Y>=ASE ("3") 

5360 ? (HIMEMNt+Y*#40) =6 

570 7? CHIMEM+TY *40+1)=29 

SBe 7 (CHIMEMN+Y*40+2) =1 

9970 ENDPROC 

60D REM 4H HEHEHE KHER HEHE REE EE EEE 
HEHEHE HH KKK KEK KE KEKE KKK EK EHR EKEE 

610 DEF PROCREMOVE (X, Y> 

620 ?FNADDRESS(X,Y)=ASC(" "> 

630 ? CHIMEMN+Y#40) =35 

640 7 CHIMEM+Y#404+1)=ASC(" ") 

650 7 CHIMEM+Y*#40+4+2)=ASCC(" ") 

660 ENDPROC 

G7 REM 4-H HHH HHH HHH HEH EERE 
ERE KK ENA EHH HERE KEK HELENE ERER 

680 DEF PROCHIT 

5690 TIME=0 

700 REPEAT 

710 *FX 15,0 

720 SOUND RND(4)—-1,-15, RND(256)-1, 255 

730 UNTIL TIME>20¢e 

740 *FX 15,90 

750 ENDPROC 

FEO REM HHH HHH KHER EERE HE KE EK ERNE EERE ERE 


KEKE EK ERE HEHEHE KREKKEREE 
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The Game 


In this program the computer acts as a ‘psychiatrist’, while you are 
the ‘patient’. A free-format dialogue passes between you. 

Note The computer is programmed to be a ‘psychiatrist’, not to 
argue, so try not to fall into the easy trap of just exchanging insults 
with it. It has been programmed to respond to 36 ‘keywords’. We 
chose these because they are the sort of words people use often. You 
may not agree. You may well get a more convincing dialogue if you 
change these to words you are more likely to use. 


The Program 


10 Puts the computer in Mode 7. 

40 Prints the first part of the opening message. 

50 Starts trying to be a mother-substitute. 

60 ANS() holds which of the three possible responses to a keyword 
was used last. 

70 M$() holds all the possible responses by the computer — sorry, 
‘Eliza’, 

80 Calls PROCinit, which reads all the answers into M$. 

90 P$ holds the response you last typed in. This is set to a plus sign, 
so that the mechanism for stopping you typing the same thing 
twice in a row works all the time. 

100 Starts the main REPEAT loop of the program. This one carries 
on until you type ‘shut up’. 

110 Sets the your response to the null string, because otherwise the 
comparison in the next-line-but-one would cause a ‘No such 
variable’ error. 

120 Starts the REPEAT loop concerned with getting a valid 
response from you. 

130 If your response was the same as the last one, prints a message 
telling you not to repeat yourself. 

140 Inputs your reply. INPUT LINE is used to ensure that if you 
type a comma, ail the typing will still be used. 

150 Stops the loop when you do not repeat yourself. 

160 Sets the old response to the new response, ready for the next 
input session. 

170 Translates your input to upper case if it was lower case, or just 
leaves it if it was upper case. 
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180 This line uses nested function calls. The function FNanswer 
will generate a response to A$, and the function FNoutput will 
convert that response to lower case. 

190 Stops the loop when ‘shut up’ is typed. 

200 Prints a suitable response to your typing ‘shut up’. 

210 Ends the program. 


230 Starts the definition of FNtranslate_input(A$). 
FNtranslate_input(A$) takes the string A$ and makes the 
substitutions in the DATA statements starting at line 370. Thus all 
occurrences of the word ARE will be replaced with AM%,. The 
percentage sign is to stop the program later replacing AM with 
ARE (see line 490). 

240 Sets the DATA statement pointer to line 370. 

250 Sets all variables used in this function to LOCAL. 

260 Adds spaces to both ends of A$. This is because ali substitutions 
are made with words, and words are only known to be words when 
they are flanked by spaces. Thus the words starting and finishing a 
sentence will not be counted as such without this measure. 

270 Starts a FOR loop for each of the 15 possible substitutions. 

280 Reads the two words that make up the substitution. 

290 Adds spaces to the first word. 

300 Adds spaces to the second word. 

310 Starts a REPEAT loop for that particular substitution. 

320 Finds out the position of the search word in A$. INSTR itself is 
not used because INSTR is not totally reliable in functions when 
the second argument is longer than the first. FNinstr checks the 
lengths of both arguments. 

330 If X$ is in A$, the substitution is made. 

340 The process continues until P = 0, when all occurrences of X$ 
in A$ have been dealt with. 

350 Ends the major loop. 

360 Exits the function with A$. 


530 Starts the definition of the function FNchange_case_to_upper. 
This function changes any lower case letters in its argument to 
upper case. 

540 Sets all variables used in this function to LOCAL. 

550 BS is the destination string, and it is set to null, to stop the ‘No 
such variable’ error message coming up. 

560 Starts a loop through all the characters of A$. 

570 Picks out the T’th character of A$. 

580 If the character is ‘greater than ‘Z’’ then subtracts 32 from its 
code. This line carries out the actual conversion. 

590 If the character is a single quote, removes it. 

600 Adds the character to the destination string. 

610 Ends the loop. 

620 Exits the function with the destination string, B$. 
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640 Starts the definition of FNoutput(A$). This function changes 
every character of A$ to lower case, except the first, which is kept 
in upper case. The percentage signs are also taken out. 

650 Sets all variables used in the function to LOCAL. 

660 Sets B$, the destination string, toa null string. 

670 Sets the Boolean variable Y to false. This variable is false if the 
first character of A$ is being processed, and TRUE otherwise. 

680 Starts a loop through all the characters of A$. 


690 Picks out the T’th character of A$. 

700 If it’s a capital letter, and Y is true, it is converted to lower 
case by subtracting 32 from its code. 

710 Ifit’s an alphabetic character, sets Y to TRUE. This means that 
if the first character is non-alphabetic, ie. a space, it still waits till 
it meets an alphabetic character before starting conversions to 
lower case. 

720 If it’s a percentage sign, removes it. 

730 Adds the character to the destination string. 

740 Ends the loop. 

750 Exits the function, with B$. 


770 Starts the definition of FNinstr(A$,B$). This is a debugged 
version of INSTR (see page 281 of the User Guide). 

780 If the second argument is longer than the first, exits with zero. 
790 Else just uses INSTR to provide the result for the function. 


810 Starts the definition of FNanswer(A$). This function thinks up 
a suitable answer to your response. 

820 Declares LOCAL variables. Notice that B$ is not a LOCAL 
variable, since it is used again in FNmessage(X, Y). 

830 Restores the DATA pointer to line 910. 

840 K counts which of the keywords was found to be in the input 
string. This is initially set to zero. 

850 Starts a REPEAT loop concerned with finding keywords in the 
patient’s response. 

860 Reads the next keyword. 

870 Increments K. 

880 UNTIL either the end of the list of keywords has been reached, 
or a match is found. 

890 Increments the correct element of ANS. This is so that answers 
are used in cycles. 

900 Uses the ANS(K)’th answer out of the K’th group of three. 

910 Starts the list of keywords. Notice the order in which they are 
placed ~ ‘YOU ARE’ is found before ‘YOU’ on its own, and words 
like ‘FRIENDS’ are a last resort. 


970 Starts the definition of FNmessage(X, Y). This function picks 
out the correct response and, if needed, adds the translated part of 
the human response on to the end of it, depending on whether the 
answer ends in an asterisk or not. 
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980 Sets up the LOCAL variables. 

990 Picks the answer string from the string array which holds all 
the answers. 

1000 If the rightmost character is not an asterisk, then returns the 
string as it is. 

1010 Or else, takes off the asterisk. 

1020 Combines the answer with the user's input, translated with 
FNtranslate_input. 

1040 Starts the definition of PROCinit. This routine just reads in 
all the answers. 


Suggestions for improvement 


* The best way to improve ‘Eliza’ is to alter the responses to put 
your personal stamp on them. You do this by either altering the 
data statements from lines 1140 onwards, being careful to keep the 
same number, or by adding extra keywords. 

¢« Each new keyword is added into the DATA statements at line 
910, in the place where it is unlikely to interfere with other 

key words. Once this has been done, you must alter lines 60 and 70, 
to allow for more than 36 keywords. 

« You must then add the responses to the keywords you’ve added 
into the DATA statement list in line 1140. This should be done in 
the same place (relative to the other items) where you added your 
keywords in the keyword table. Each group of three responses is 
REMmed to show which keyword it is associated with. 


The Listing 


1@ MODE 7 

20 REM ELIZA 

SO REM CR EEE ER RHEL EER ER REREE 
KREME EEE REE ERIE 

4@ PRINT ’’’ “Hello. My name is ’Eliza’*." 

5@ PRINT ’*"Tell me what your problem is "™ 

60 DIM ANS(36) 

79° DIM M$(2, 34) 

Be PROCinit 

90 Ps= a + ily 

10@ REPEAT 

110 Aag$="" 

120 REPEAT 

is0@ IF AS=PS THEN PRINT “Please don’t repeat y 
ourself." 

440 INPUT LINE "--—->" As 

150 UNTIL AS<>Ps 

140 PS=AS 

170 AS=FNchange_case_to_upper (AS) 

180 PRINT FNoutput (FNanswer (FNchange_case_to_u 
pper c™ "446+" ae 3 } 
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4990 UNTIL FNinstr (A$, "SHUT UP") 

200 PRINT “Shut up yourself ..." 

216 END 

Z2ZQ REP KEKE KR HE HEK HEHE HEE HERE E ERE EERE ER 
FEE EE EEE EE EE EEE HEE EE EE IE 

2390 DEF FNtranslate_input (As) 

246 RESTGRE 379 

250 LOCAL W,X%, Y$,P 

2560 Aat=" u +4%$+ u u 

2706 FOR W=1 TO 15 

2Be@ READ X$,Y% 

790 X=" "4X4" ou 

300 ¥s= au Le | +rY¥ $+ Le | a 

316 REPEAT 

320 P=FNinstr (AS, XS) 

330 IF P>@® THEN AS=MIDS$ (AS, 1,P—1) +YS$4+MIDS(AtS,P 
+LEN(X#)> 

340 UNTIL P=e 

350 NEXT W 

360=AS 

37@ DATA ARE,AMZ 

3B0 DATA WERE,WASZ 

3970 DATA YOUR,MYZ 

4@e@ DATA YOU,IZ 

41@ DATA IVE, YOU’ VEZ 

420 DATA IM, YOU’ REZ 

430 DATA ME, YOUZ 

440 DATA I AM, YOU’ REZ 

4590 DATA I HAVE, YOU’ VEZ 

460 DATA MY, YGURZ 

47e@ DATA YOURE,I’MZ 

480 DATA I,YOUZ 

490 DATA AM, AREZ 

3500 DATA WAS, WERE 

910 DATA YOUVE, I’? VEZ 

520 REM EKER REE HEE HEH EK EK RHEE KE HERE EME 
HEM HH RK EE EK HEHE EKER ERE ERE 

S30 DEF FNchange_case_to_upper (AS) 

5406 LOCAL T,Ct%, Bt 

oue6 Bs="" 

969 FOR T=1 TO LEN¢AS) 

570 CS=MIDS(At,T,1> 

SBe IF C$>"Z" THEN CS=CHRS (ASC (CS) —32) 

290 IF Cs=""" THEN C#="" 

69090 BS=BS$+CS 

610 NEXT T 

6206=-BS 

ESO REM 4596666 EEE EK KEE KEE EEREREE 
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HH EEK HEE EEE EER EER ERE REE EEREE 

640 DEF FNoutput (A$) 

6350 LOCAL Bt,T,C$,Y 

660 BS="" 

670 Y=FALSE 

680 FOR T=1 TO LEN(AS$) 

690 CS=MIDS$ (AS$,T, £3 

700 IF C#>="A" AND CS$<="Z" AND Y THEN CS=CHRS ¢ 
ASC (C$) +32) 

710 IF CS >="A4" AND C#<="2Z" FHEN Y=FRUE 

720 IF €$="A2" THEN Cs="" 

730 Bt=BS+Cs 

740 NEXT T 

7590=BS 

FOO REP HH MH EE EH EEK EEE ERE ER ERR HREKE 
KEKE KEE KR EK KEE EE HERE EKER EK REE REK 

77@ DEF FNinstr (As, BS) 

7Be IF LEN( BS) >LEN(A%) THEN=0 

79O=INSTR (AS, BS) 

BOQ REM KH HHH KH KH HEHEHE MEEKER KEGEL EERE 
HEHEHE EE IEE EEE FEE FEE FETE EE IEE EE ER EK HEH 

810 DEF FNanswer (AS) 

B2¢e LOCAL K 

830 RESTORE 97108 

B40 K=0e 

850 REPEAT 

B50 READ BS 

870 K=K+1 

880 UNTIL BS="NOKEY" OR FNinstr (AS. BS) 

B90 ANS(K)=(ANS(K)+1) MOD 3 

900=FNmessage (ANS(K),K) 

910 DATA " CAN YOU "," CAN I ",” YOU ARE"," YO 
URE ",” I DONT "," I FEEL “ 

920 DATA" WHY DONT YOU ”," WHY CANT I ”,” ARE 
YOU aa _ Lid T CANT LP > a I AM an 5 a IM al 

930 DATA" YOU ",” I WANT "," WHAT "," HOW ","W 
HO ",”" WHERE ",“ WHEN ",” WHY " 

9408 DATA CAUSE, SORRY, DREAM,HELLO," HI”,MAYBE,N 
0,” YOUR ",NAME 

950 DATA " ALWAYS ",” THINK ”“,” ALIKE “," YES" 
»" FRIEND", ” COMPUTER", NOKEY 

GSO REM EEE EERE EEE KERR HER ERE ER HER ERE ER EE 
HEHEHE KH KEE REKKEKE KHER KER RREEREEN 

970 DEF FNmessage (X,Y) 

98e LOCAL DS,Fs 

99@ DS=Ms (xX, YD 

1600 IF RIGHT#(D$,1)<>"*%" THEN =D$ 

101¢@ FS#=LEFTS$ (DS, LEN (DS)}~1} 
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1020=FS+FNtranslate_input (MIDS (AS, FNinstr (AS, BS 
)+LEN(BS))) 

1B5SOQ REM HEHEHE HEHEHE EK EEE EEE HERR KERR REEEE 
KEK KEKE HE EEE EKER EEE RHEE EERE 

1040 DEF PROCinit 

1050 RESTORE i140 

1@60 LOCAL X,Y 

1070 FOR Y=1 TO 36 

1@8@ FOR X=e@ TO 2 

10970 READ MS$(xX,Y) 

1100 NEXT X 

1110 NEXT Y 

1120 ENDPROC 

11350 REM ERK REE HEE MER ERR KKK ERE KR EN KEKRERERERE 
KH EH KERR 

1148 DATA DON’T YOU THINK I CAN* 

115@ DATA WHAT MAKES YOU THINK I CAN’ T* 

116@ DATA PERHAPS YOU WOULD LIKE TO BE ABLE TOx 

1170 REM 

118° DATA PERHAPS YOU DON’T WANT TO 

11992 DATA WHY DO YOU WANT TO* 

120e@ DATA f£ DOUBT IT 

12106 REM 

12206 DATA WHY DO YOU THINK I*M*x 

i230 DATA DOES IT PLEASE YOU TO BELIEVE I AM* 

1240 DATA HOW DID YOU KNOW 

1256 REM 

12628 DATA WHY DO YOU THINK I’M* 

i270 DATA DOES IT PLEASE YOU TO BELIEVE I AM* 

1286 DATA HOW DID YOU KNOW 

12970 REM 

1300 DATA DON’T YOU REALLY 

1310 DATA WHY DON’T YOU 

1320 DATA IS IT ONLY YOU THAT DOESN’ T* 

i330 REM 

1349 DATA TELL ME MORE ABDUT SUCH FEELINGS 

1350 DATA DO YOU THINK SUCH FEELINGS ARE NORMAL 

i360 DATA DO YOU THINK EVERYONE FEELS* 

1370 REM 

1380 DATA I COULD SAY THE SAME TO YOU 

i390 DATA DO YODU THINK I SHOULD* 

14@06 DATA DO YOU REALLY BELIEVE THAT I DON’ T* 

14190 REM 

1429 DATA PERHAPS YOU HAVEN’ T TRIED HARD ENDUGH 

1430 DATA MAYBE THERE’S JUST SOMETHING WRONG WI 
TH YOUR MIND 

1440 DATA MAYBE YOU ARE NOW IN A FPOSITION TO*« 

1450 REM 
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1460 
1470 
1480 
7 Ms 
14906 
1500 
1516 
1526 


DATA 
DATA 
DATA 


REM 

DATA 
DATA 
DATA 


DGES THE QUESTION INTEREST YOu 
DO YOU THINK I’M* 
WOULD IF PLEASE YOU TO BELIEVE THAT I 


YOU TELL ME 
PERHAPS YOU HAVEN’ T FRIED HARD ENOUGH 
MAYBE THERE’S JUST SOMETHING WRONG WI 


TH YOUR MIND 


153@ 
1542 
155e 
1560 
1570 
15Be 
15902 
1600 
1610 
1420 
1630 
14640 
1650 
1460 
1670 
14680 
1590 
170 
1710 
1720 
1730 
1740 
175e 
17640 
17702 
1780 
17902 
1800 
1810 
1820 
1830 


REM 

DATA 
DATA 
DATA 
REM 

BATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
REM 

DATA 
DATA 
DATA 
REM 

DATA 
DATA 


DO YOU THINK IF’S NORMAL TO BEX 
HOW LONG HAVE YOU BEEN* 
DO YOU ENJOY BEING* 


DG YGU THINK ITtT’S NORMAL TO BE* 
HOW LONG HAVE YOU BEEN* 
DG YGU ENJOY BEING* 


WHO’S THE PATIENT AROUND HERE 
WE WERE DESCUSSING YGU --— NOT ME 
KEEP ME GUT OF FHIS 


WE ALL WANT* 
WHAT WOULD IT MEAN TO YOU IF YOU GOT* 
DOES EVERYONE WANT* 


DOES THE QUESTION INTEREST YOU 
WHY DO YOU ASK 
I REFUSE TO ANSWER THAT 


DO YOU KNOW HOW* 
I SHOULD BE ASKING YOU HOW* 
FHAT?S A SILLY QUESTION FOR A START 


WOULD IF HELP YOU TO KNOW WHO 
WHY DO YOU ASK WHO* 
WHO INDEED 


DO YOU NEED TO KNOW WHERE* 
IS THAT A DUMB QUESTION OR £5 IF A DU 


MB QUESTION 
1840 DATA WHAT WOULD IT MEAN TO YOU IF I TOLD Y 
OU WHERE 


185¢@ 


REM 


1860 DATA TIMES AND DATES DON’ TF BOTHER ME-— PRAY 
CONT INUE 
18720 DATA WHEN WHAT 

18B8e DATA HOW SHOULD I KNOW WHEN*® 


31 


HOW SHOULD I KNOW WHY* 

DO YOUR FRIENDS KNOW WHY+* 

WHY DBO YOU ASK 

DO ANY OTHER REASONS SUBGEST THEMSELYV 


IS THAT THE REAL REASON 
ARE YOU SURE 


PLEASE —— THERE’?S NO NEED TO APOLOGIZ 


APOLOGIES ARE NOT NEEDED 
DON’? T BE SG DEFENSIVE 


DG YOU DREAM OFTEN 

WHY DO YOU THINK YOU DREAM 

WHAT IS SG IMPGRTANT ABOUT DREAMS 
HOW DO YOU DO —— PLEASE STATE YOUR PR 


YOU ARE POLITE 
OK -—-— I’VE GOT THE MESSAGE 


HOW DG YOU DO —— PLEASE STATE YOUR PR 


YOU ARE POLITE 
OK —-— I7VE GOT THE MESSAGE 


YOU SEEM UNSURE 

PLEASE BE MORE POSITIVE 

BE MORE ASSERTIVE 

ARE YOU SAYING ’*NO” JUST TO BE NEGATI 


YOU ARE BEING RATHER NEGATIVE 
WHY NO? 


WHY ARE YOU CONCERNED ABOUT MY* 

ARE YOU INTERESTED IN MY* 

WHAT ABOUT YOUR OWN* 

NAMES DATES DON’T BOTHER ME- PRAY CON 
WILL YGU PLEASE KEEP NAMES OUT OF IT 


i HAVE NO USE FOR NAMES 
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20792 


DATA"REALLY, ALWAYS?” 


DATA 
DATA 
REM 

DATA 
DATA 


DATA 


REM 
DATA 


DATA 
DATA 
REM 

DATA 
DATA 
DATA 
REM 

DATA 


DATA 
DATA 
REM 

DATA 
DATA 


DATA 
REM 

DATA 
DATA 
DATA 


ISN’T *ALWAYS” AN EXAGGERATION? 
HOW OFTEN IS * ALWAYS” 


DO YOU THINK OFTEN 
DO YOU THINK THINKING DAMAGES YOUR HE 


DID YOU THINK BEFORE YOU CAME TO SEE 


WHAT DOES THE SIMILARITY SUGGEST TO Y 


WHAT OTHER CONNECTIONS DO YOU SEE 
WHAT RESEMBLANCE DO YOU SEE 


YOU SEEM QUITE POSITIVE 

ARE YOU SURE? 

I SEE 

WHY DO YOU BRING UP THE TOPIC OF FRIE 


DQ YOU HAVE ANY FRIENDS 
DO YOUR FRIENDS LIKE YOU 


DO COMPUTERS WORRY YOU 
ARE YOU THINKING ABOUT ME IN PARTICUL 


WHY DO YOU MENTION COMPUTERS? 
I’M NOT SURE I UNDERSTAND YOU FULLY 


PLEASE ENLARGE 
THIS IS MOST REVEALING —-— PRAY CONTIN 


FRE EEE EE EM HEE HEHEHE EEE ERR EEKER 
KKREEKEREKKEKKEKEEEEKEKREERAREREREE 
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The Game 


During the winter of 1970, John Conway, then attending 
Cambridge University, created LIFE, a game whose simple rules 
produce effects more delightful and unexpected than any 
examination of the rules of the game could suggest. The world of 
LIFE-admirers remained small until! Scientific American published 
an article on the game, written by Martin Gardner. Then LIFE 
broke out all over. 

Without a computer the moves of the game are so tedious and 
slow to implement that the beauty of the unfolding patterns is lost. 
LIFE really is one of the true ‘natural’ computer games; it has 
deserved its vibrant success. 

LIFE creates an evolving colony of cells on a grid: these are 
born and live and die in accordance with Conway’s rules: 

e Each cell on the grid has eight neighbours. 

» Every cell with two or three neighbours survives to the next 
generation. 

* Acell with only one neighbour dies. 

» Ifthere are three, and only three, neighbouring cells, a new cell 
is born. 

e Any cell with four or more neighbours dies from 
overpopulation. 


You can work out how the game proceeds by using a draughts 
board, placing some pieces on it, then checking each piece and the 
squares immediately around it to work out what will happen in the 
next generation. It is important to note that a particular cell is not 
changed immediately after it is examined, but only when the whole 
grid has been examined. The rules are applied all over the grid 
simultaneously. 

There are two versions of the program. The first one generates 
the initial colony at random, and the second allows the player to 
enter the starting colony of his or her choice. We suggest. you enter 
the ‘automatic’ version first and then, when you’re familiar with 
how the process works, run the version (LIFE 2) that allows you to 
define your initial colony. 

After you input the number of cells (in LIFE 2), you then enter 
the co-ordinates of each cell within the LIFE grid. 

It is impossible to describe how effective the whole process is. 
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Reading this description will not prepare you for the pure magic of 
this evolution of Life. 


The Programs 

Program one 

10 Title 

20 Sets mode. 

30 Sends action to the initialisation procedure. 

40 Start of master REPEAT/UNTIL loop (terminated in line 70). 
50 To the procedure to print out the present colony. 

60 To the procedure which determines how the next colony will 
look. 

70 Termination of master REPEAT/UNTIL loop. 


90-180 Initialisation procedure: 

100 Clears screen. 

i10 Turns off cursor. 

120 Dimensions arrays to hold the plotted colony (A) and the 
sree) which is amended (B) before being copied into the plotting 
colony. 

180-160 Distribute the initial cells in the colony. The value one in 
an array tells the computer a cell is present; a zero equals an empty 
element of the grid. Line 150 copies the contents of each element of 
the A array into the B array, so they start the run holding an 
identical colony. 


200-300 The procedure which actually prints out the colony: 

210 Moves the print position to the top left-hand corner of the 
screen; prints two blank lines. 

220 Sets the counter Z to zero. This counter controls the number of 
times the random notes sound just before the number of the 
generation is changed. The word ‘Generation’, and the value 
assigned to the variable GENERATION are printed in red 
(CHRS$(129)). Lines 260 to 290 run through loops from two to 14 
(leaving out the elements on the ‘Frame’ of the grid). Line 270 
copies the elements from the B array (which has been updated) into 
the A array, and line 280 prints a double space if the element is 
zero, and a space followed by a green asterisk if the element is one. 


320-470 This is the procedure which updates the cell colony: 

830 Adds one to the generation count. 

840 Starts both the X and Y loops (terminated in line 460). 

350 Sets the variable C, which will count the number of 
neighbouring cells, to zero. 

360-4380 Check the cells surrounding the cell under examination, 
looking at the elements in the A array. 

440-450 Modify the contents of the B array in light of the value 
which C has obtained, and in light of the contents of the A array. If 
A equals one (that is, a cell is present at this location) and there are 
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not two or three neighbours (which means there must be none, one, 
or more than three), the cell is ‘killed’ (that is, the equivalent 
element in the B array is set to zero). If A equals zero (that is, there 
is no cell present at this location), and there are three surrounding 
cells (ie. C equals three), then a cell is born (the equivalent element 
in the B array is set to one). 


Program two 


There are many similarities between the first and second programs. 
The major REPEAT/UNTIL loop is identical, and the procedures 
which print the colony and update the generations are also 
identical. The difference between the two programs lies within 
lines 100 and 270, where you can enter your own colony. You'll find 
that if you enter a colony which forms a balanced pattern, it may 
well evolve more interestingly than a colony of random cells. You 
will find certain patterns that cycle, and others that move across 
the screen, keeping each cel! in a fixed relationship with the other 
cells in the pattern. 

150 Allows you to enter the number of starting cells you desire. 
Line 160 rejects an answer less than zero. 

180-240 This loop (FOR entry = 1 TO start) accepts your input as 
X and Y (line 190) and checks to see if the cell lies within the grid 
(line 200) and ensures that the cell is not already occupied (line 
210). Line 220 sets that element in the A array to one, and line 230 
copies this into the B array. 


It is worth keeping track of your entry numbers so that if you 
discover a particularly attractive pattern you can always repeat it 
to impress your friends. 


The Listings 

10 REM *** LIFE *«** 

20 MODE 7 

38 PROCinitialise 

40 REPEAT 

5@ PROCprint_colony 

60 PROCgener ation_update 
7@ UNTIL FALSE 

BO REM 44445 

90 DEF PROCinitialise 

19° CLS 

119 VDU 23382023 0354; 

120 DIM A(15,15),B¢15, 15) 
130 FOR X=2 TO 14:FOR Y=2 TO 14 
140 IF RND(1)>.35 ACX,¥I=1 


36 


i5@ B(x, VI=A(xX, ¥) 

16@ NEXT=:NEXT 

17@ GENERATION=0 

180 ENDPROC 

190 REM #44 HERR HERR 

296 DEF PROCprint_colany 

216 PRINT CHRS307 ” 

220 Z=0: REPEAT 

230 SOUND1,—15, RND(100)+30, 1:SOUND1,-7,59,1 

240 Z=Z+1:UNTIL Z=3 

250 PRINT CHR#(129)5" Generation: "$§ 
GENERATION’ ” 

260 FOR X=2 TO 14:FOR Y=2 TO 14 

27@ ACK, Y=BCX,Y) 

280 IF ACX,Y)=0@ PRINT " “3 ELSE PRINT CHRS(1 
3o) 5 Mages 

2990 NEXT:SPRINT: NEXT 

300 ENDPROC 

SiG REM KEK KKHHKHEEEEE 

320 DEF PROCgeneration_update 

3390 GENERATIGN=GENERAT ION+1 

340 FOR X=2 TO 14:FOR Y=2 TO 14 

350 C=0 

360 IF ACX-1,Y-1)=1 C=Crt 

376 IF ACX-1,Y)=1 C=Cri 

SB@ IF ACX-1,Y+1)=1 C=C+i 

S90 IF ACX,Y-1)=1 C=C+1 

400 IF A(X, ¥+i1)=1 C=C+t 

410 IF ACX+1i,Y-1)=1 C=C+1 

4290 IF ACX+14,Y)=1 C=C+i 

430 IF ACX+1,Y+1)=1 C=C+1 

4490 IF ACX,Y)=1 AND C<>2 AND C<>S BI(X, Y)=0 

450 IF A(X,Y)=0 AND C=3 B(X,Y)=1 

460 NEXT:NEXT 

4720 ENDPROC 


16 REM **#* LIFE 2 ##*® 

7@® REM ALLOWS USER TO DEFINE STARTING COLONY 
30 MODE 7 

46 PROCinitialise 

5@ REPEAT 

60 PROCprint_colony 
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7@ PROCgeneration_update 
8@ UNTIL FALSE 
FO REM 2H EERE EEE 
100 DEF PROCinitialise 
1190 CLS 
120 VDU 2358202503; 90;50 
13@ DIM A(15,15),B8(15, 15) 
14@ PRINT”’’??? 
£50 INPUT"HOW MANY CELLS TO START? "start 
149 IF start<=0 THEN 15@ 
170 FOR entry=1i1 TO start 
186 PRINT"Please enter cell number "Sentry 
19@ INPUT X,Y 
200 IF X*Y=0 OR X>14 OR Y>14 PRINT CHRS(130)5 
Xs" “s¥s" IS OUT OF RANGE”":GOTO 180 
210 IF ACX,Y)<>0 PRINT CHRS(129)3 "THAT CELL 
IS ALREADY OCCUPIED":GOTO i180 
220 ACX,Y)=1 
230 B(X,Y=ACX,Y) 
2490 NEXT entry 
250 CLS 
260 GENERATION=0 
270 ENDPROC 
ZAQ REM KHER EEE 
290 DEF PROCprint_colony 
300 PRINT CHR#3Q’ ” 
310 Z=0:REPEAT 
320 SOUND1,—-15, RND(10@) +30, 1: SOUND1,—-7,59,1 
33@ Z=Z+i1sUNTIL Z=3 
34@ PRINT CHR$(129);" Generation: "5 
GENERAT ION” ” 
350 FOR X=1 TO 14:FOR Y=1 TO 14 
SHO ACK, YI=B(X,Y) 
37@ IF A(X,Y)=@ PRINT " "3 ELSE PRINT CHR (i 
SO 5 "HS 
380 NEXT:PRINT=: NEXT 
390 ENDPROC 
4OQ REM HERE HEEHEH EEE 
410 DEF PROCgeneration_update 
420 GENERATION=GENERATION+1 
430 FOR X=2 TO 14:FOR Y=2 TO 14 
440 C=0 
450 IF ACX-1,¥~-1)=1 C=C+t1 
460 IF ACX-1,Y)=1 C=C+1 
470 IF ACX—-1,Y+1)=1 C=C+1 
480 IF AtX,Y-1)=1 C=C+1 
490 IF ACX,Y4+1)=1 C=C+1 
50e@ IF A(X+1,Y-1)=1 C=C+1 
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510 IF ACX+1,¥)=1 C=Ctri 

S2@ IF ACX+1, ¥+1)=1 C=C+ri 

S53@ IF ACX,Y)=1 AND C<>2 AND C<>3 Bix, Y)-@ 
546 IF ACX,Y)=0 AND C=3 B(x, Y)=1 

S5@ NEXT=NEXT 

966 ENDPROC 
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| [| Models A and B 


The Game 


In this game, your interaction with the computer consists of typing 
in RUN, pressing RETURN, then sitting back to listen as the 
computer composes a passable imitation of music on a fairground 
steam organ. It changes speed from ‘verse’ to ‘verse’ of its little 
tune, and obligingly prints its speed (Moderato or Allegro) on the 
screen for you as it does so. 


The Program 


The heart of the program is the ‘bass sequences’ which play twelve- 
bar blues in the key of C, and from time to time generate notes 
which harmonise, more or less, with the bass sequence being played. 
10 Title. 

20 Clears the screen (can be changed to MODE 7). 

30 Dimensions the arrays which hold the notes to go with ‘cchord’ 
and ‘fchord’. 


50-360 This is the master REPEAT/UNTIL loop. 

60, 100, 150, 190, 230, 280 These change the colour of the words 
‘Fairground organ’ and ‘Moderato’ or ‘Allegro’. 

70~90 Call the ‘cchord’ procedure four times. 

110-130 Call the ‘fchord’ and ‘fnote’ procedure four times. 

160-180 Call the ‘cchord’ procedure a further four times. 

200-220 Call the ‘gchord’ procedure twice. 

240-260 Call the ‘fchord’ and ‘fnote’ procedures twice. 

290-310 Call the ‘cchord’ procedure twice. 

320-350 Play the final note of the ‘verse’, and pause for an 
appropriate time (using the zero in the second SOUND statement — 
line 330 — to effectively turn off the sound for six times the value of 
Z, the variable which controls the tempo). Line 350 changes the 
speed from ‘verse’ to ‘verse’. 


380-410 This procedure controls the display. 


430-510 This procedure plays the bass run {C, E, G, E), calling notes 
three times, and choosing a volume setting for the middle two notes 
at random (thus giving a different stress to each bar, which stops it 
from being too mechanical and monotonous). Notes one and four (C 
and E) are chosen at random from different octaves, again to 
increase variety. 
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530-580 This procedure plays the ‘fchord‘ (F, A, C, A) in rigid time 
and with a set volume. This stops the whole piece from 
degenerating into apparent randomness (which tends to occur if 
every ‘chord’ has the same waywardness that ‘cchord’ enjoys). 


600-650 This procedure plays the ‘gchord’ (G, B, D, B}, again in 
strict time, at a set volume. 


670-690 This procedure chooses notes at random (by selecting 
random elements of the array A) which go with ‘cchord’. 


720-840 The initialisation procedure fills the arrays with values 
which correspond to appropriate notes. 


860-880 Chooses ‘fnote’s to go with ‘fchord’. 


Suggestions for improvement 


¢ Make better use of the dislay (perhaps to draw the notes as the 
computer plays them). 

« Change the notes the computer has to choose from. 

» Allow ‘fchord’ and ‘gchord’ more variety, and add a routine to 
change the volume within a verse or between verses. 


The Listing 


1@REM#* Fairground Organ ** 
2ECLS 

3@ DIMA(8),BC(4) 
4OPROCinitialise 
S@REPEAT 
S6@PROCdisplay 
7OFORG=1TO04 
8@PROCcchord 
JONEXT G 
160PROCdi splay 
11 6FORG=1TO4 
120PROCfnote 
1390PROCf chord 
140NEXTG 
15@PROCdi splay 
1469FO0RG=1T04 
17@PROCcchord 
18@NEXTG 
19¢@PRDCdisplay 
260F ORG=1TO2 
2190PROCgchord 
22ZO6NEXTG 
230PROCdi splay 
24¢F ORG=1TO2 
256PROCf chord 
260PROEcnote 
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27ONEXTG 

286OPROCdiI splay 

290F ORG=1TO2 

SeG@PROCcchord 

S1LONEXTG 

S2@GSOUND 2,—-190,53, 4%Z 

SSOSOUND 2,90,1,4*Z 

340PROCGi splay 

S5S@GZ=RND (2) +2 

SS6QUNTIL FALSE 

37 GREMA 44H HHH HEHEHE 

SBeDEF PROCdisplay 

SIOPRINT TAB(2, 3) 5 CHRS (128+RND(G)) 5 "#+* 
Fairground"; CHR¢#$(128+RND(46)); "organ *«*" 

40¢@ IF Z=3 PRINT TAB(S, 6) 5 CHRS (128+RND(6))5" 
Allegro” ELSE PRINT TAB(7, 6) 5 CHRS (128+RND(6))5" 
Moderato" 

4t@ENDPROC 

420END 

AZORE ME 436-46 4 9636-66 EH 

440DEF PROCcchord 

450@IF RND(1)>.5 SOUND 2,-15,53,Z ELSE SOUND 2 
,—-15,5,2Z 

460 PROCcnote 

470 IF RND(1)>.5 SOUND 2,-15,469,Z ELSESOUND 2 
,71,49,2 

480 IF RND(1)>.5 SOUND 2,-15,81,Z ELSESOUND 2 
3—-1,81,Z 

490PROCcnote 

5@@ IF RND(1)>.5 SOUND 2,-15,69,2 ELSESOUND 2 
y—i15,21,2 

21 @PROCcnote 

0206 ENDPROC 

SSOREM% HHH EH 

 24@DEF PROCFchord 

556 SOUND 2,-15,73,2Z 

560 SOUND 2,-15,89,2Z 

o7@ SOUND 2,-15,101,Z 

[38¢@ SOUND 27,-15,89,Z 

D7OENDPROC 

SGOREM*¥ 446 44656 3058 HE 

616DEF PROCgchord 

620 SOUND 2,-15,81,2 

630 SOUND 2,-15,97,2Z 

64% SOUND 2,-15,109,2Z 

65¢ SOUND 2,-15,97,2Z 

6S50CENDPROC 

S7OREMH HRC HK HREREERER 
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4B@DEF PROCcnote 

S570SOUND3, -13,4(RND(S) >, Z2*2: SOUND1,—4, A(RND (8 
10,2 

7O@OSOUND1,-7,ACRND(8)),2 

JL SENDPROC 

FZOREMXHH KHER KRE KE 

FSODEF PROCinitialise 

7407=3 

750 FORB=i1TOS 

740 READC 

770 AC(B)=C 

780 NEXTB 

779DATAL49, 165, 177,5, 245, 233,117,335 

Seer ORB=1T04 

B19@READC 

820B (8B) =C 

B3ONEXTB 

B40DATAZ4S, 233,217,235 

85@ENDPROC 

BEOREMEH RHR KR KEHREERE 

879DEF PROCfnote 

BEBESOUNDS, -—12, B(RND(4)), Zs SGUND1, —4, BCRND (4) 3 
g 2KZ 

S90ENDPROC 
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The Game 


This program is a simplified version of the popular arcade game. 
You steer a space-ship, roaming around in deep space, when you 
encounter an asteroid storm. 

All you have to do to destroy an asteroid is crash into it, or let it 
crash into you. There is also a ‘poisonous gas’ at the top left of the 
screen which does you no harm but destroys asteroids at will. A 
special feature of this game is that asteroids will occasionally merge 
into one if they meet. 

The object of the game is to destroy as many of the asteroids as 
you can in the shortest possible time. The time in seconds is shown 
ticking away in the top left corner of the screen. Pressing 
"ESCAPE’ gives a special effect, so do not try to cheat. 

You alter the number of asteroids you battle against in line 10. 
Replace the '2’ with one less than the number of asteroids you feel 
fit to tackle. The speed of the game can be altered in line 40; 
increasing DIF% from 0 slows down the game. The speed is largely 
determined by the number of asteroids used. 

The controls you have for your ship are: 


Travel in direction you are pointing in: Space bar. 
Rotate clockwise: Colon key. (Asterisk key.) 
Rotate counter-clockwise: Slash key. (Question mark.) 


The Program 

10 Initialises the number of asteroids to be used. 

20 Dimensions an array to hold the X, Y positions of each of the 
asteroids, and their velocities in each direction. 

30 Sets up an ‘ESCAPE’ trap. 

40 Initialises the difficulty factor of the game. 

50 Sets the computer into Mode 4. 

60 Calls PROCdefine, which defines the asteroid shape, and eight 
characters which are the space-ship pointing in each of eight 
directions. 

70 Calls PROCinit, which does the general initialisation required. 
80 Starts the clock for the game. 

90 This line of asteroids marks the start of the main game loop. 
100 Starts the main game loop. 

110 Prints the elapsed time near the top of the screen. 
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120 Saves the TIME. 

130 And waits for DIF% centiseconds. As DIF% is usually 0 for 
experienced players, you can delete this section of two lines and 
line 40. 

140 Uses INKEY with a negative number to sense whether the 
space bar is pressed down. If so, places a space at the space-ship’s 
current position, and calls PROCthrust, which does just that. 

150 Checks for the ‘slash’ key being held down. If it is, increments 
the counter SH%, which gives the direction in which the space- 
ship is pointing. This value is used MOD 8 since there are only 
eight possible directions. 

160 Checks for the colon key. SH% should then be decremented; 
but, if it is, it could turn SH% into a negative number, so 7 is added 
and the value taken MOD 8 again, to ensure SH% remains positive. 
170 Piaces the space-ship at the required position, using SH% to 
determine which of the eight space-ship shapes to print. 

180 Calls PROCmove_ast, which moves the asteroids on the screen. 
190 Ends the game if all the asteroids have been destroyed. This is 
checked by a call to FNall_destroyed. 

200 A line of asterisks to delimit the end of the main loop. 

210 Calls PROCfinished, which prints a progress report and 
restores the cursor. 

220 The program ends. 


240 Starts the definition of PROCdefine. 

260 Starts a loop through all the characters to be redefined. 

270 Starts off the VDU statement required to redefine the 
character. 

280 Starts a loop through each of the eight rows required for each 
character. 

290 Reads the next character string from the data statements. This 
will be a two-digit hexadecimal number. 

300 Sends the byte to the redefining routine. The EVAL function 
converts the hex string to a decimal number. 

310 Ends loop. 

320 Ends loop. 

330 Ends PROCdefine. 

350 Start of nine DATA statements to define each of the required 
characters. 


460 Starts the definition of PROCthrust. 
470 If the ship is pointing left, moves the ship left. 
480 If the ship is pointing left and up, moves the ship in that 
direction. 
490 If the ship is pointing straight up, moves it one space up. 
500 If the ship is pointing right and up, moves it in that direction. 
510 If the ship is pointing to the right, moves it one space right. 
520 If the ship is pointing down and to the right, moves it in that 
direction. 
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530 If the ship is pointing straight down, moves it one space down. 
540 If the ship is pointing down and to the left, moves it in that 
direction. 

550 If the ship has moved off the left-hand side of the screen, moves 
it to the right edge of the screen. 

560 If the ship has moved off the top of the screen, moves it to the 
bottom. 

570 Takes the MOD value of the x co-ordinate of the ship... 

580 and of the y co-ordinate. 

590 Ends PROCthrust. 


610 Starts the definition of FNreadch. This function is directly 
taken from the User Guide, and an explanation of it may be found 
in its chapter on *FX calls. 


730 Starts the definition of PROCinit. This routine initialises all 
the variables required, and sets up the display. 

740 Restores the normal display colours — black background, white 
foreground. 

750 Chooses a yellow foreground and a red background. 

760 Sets the starting x co-ordinate of the ship. 

770 Sets the starting y co-ordinate of the ship. 

780 Sets the starting direction for the ship. 

790 Places your ship on the screen. 

800 Starts a loop through all the memory locations on one line of 
the screen. 

810 Places a yellow block on the top line... 

820 and on the bottom. 

830 Ends the loop. The end result of all this is to fill the top and 
bottom lines of the display with yellow blocks. 

840 For each of the top 31 lines of the display... 

850 prints a white block at the beginning and end of every line 
and.. 

860 ends the loop. 

870 Turns off the cursor. 

880 Starts a loop for each of the available asteroids. 

890 Chooses a random x co-ordinate for each asteroid... 

900 and a random y co-ordinate. 

910 Chooses a random velocity in each direction for each of the 
asteroids. This can be —1, Qor +1. : 

920 See above. 

930 Sets the flag ‘is asteroid not shot down’ to TRUE for each 
asteroid. 

940 Places each asteroid on the screen. 

950 Ends loop. 

960 Sets the print field width to 3. 

970 Lets the cursor control keys give true values for GETting and 
INKEYing. 

980 Ends PROCinit. 
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1000 Starts the definition of PROCmove_ast. This procedure moves 
all the asteroids according to their current velocities. 

1010 Sets the LOCAL variables required. 

1020 Starts a loop through each of the available asteroids. 

1030 Gets the x co-ordinate of the current asteroid. 

1040 Gets the y co-ordinate of the current asteroid. 

1050 If the asteroid is meant to be on the screen, and the place 
where it should be does not contain an asteroid, resets the flag. 
1060 If the asteroid has still survived, replaces it with a space. 
1070 Increments the x co-ordinate according to the x velocity. 
1080 Increments the y co-ordinate according to the y velocity. 
1090 If the asteroid has moved off the screen, places it at the 
bottom. 

1100 If the asteroid has moved off the left edge of the screen, puts it 
on the right edge. 

1110 Takes the MOD value, in case the asteroid has moved off the 
bottom. 

1120 Takes the MOD value, in case the asteroid has moved off the 
right-hand edge of the screen. 

1130 If the asteroid is still meant to be on the screen, puts an 
asteroid at the relevant space. 

1140 Resets the array with the new co-ordinate... 

1150 does the same for the y co-ordinate. 

1160 Goes back for the reset of the asteroids. 

1170 Ends PROCmove_ast. 

1190 Starts the definition of FNall_destroyed. This function checks 
to see if there are any ‘un-destroyed asteroids’ around. 

1200 Sets the relevant LOCAL variables. 

1210 Sets the flag for ‘all destroyed’ to TRUE. 

1220 Starts a loop through all the asteroids. 

1230 If the current asteroid is visible, sets the flag to FALSE. 
1240 Ends the loop. 

1250 Ends the loop with the flag. 


1270 Starts the definition of PROCfinished. 

1280 Clears the screen. 

1290 Gives the screen a blue foreground and a red background 
(very difficult to read). 

1300 Starts the congratulatory message. 

1310 Carries on with the above. 

1320 And finishes it. 

1330 Gives you back the cursor. 

1340 Ends PROCfinished. 


1370 Puts the machine in Mode 5. 

1380 Prints ‘CHEAT’ in the middle of the screen. 

1390 Resets Time. 

1400 Sets the flash rate for the flashing colours at very high. 
1410 Ditto. 
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1420 Makes the screen flash black/white. 
1430 Ends the effect after a predetermined time. 
1440 Returns to the start of the program. 


Suggestions for improvement 


* Sound effects should be your first priority. The cues for sound 
would be given at a collision and when the game is over. 

* You could have more than one shape for the asteroids (although 
most people playing this version do not notice or even care that 
they are all identical). 

« A high-score feature, or — better still - a score ladder, as in the 
arcade versions, would increase the competitive element. 

» An option to end a game and also an option to begin a new game. 


The Listing 

1@ ASZ=5 

2@ DIM ASTZ(ASZ, 4) 

30 ON ERROR GOTO 1360 

4@ DIFZ=1 

30 MODE 4 

68° PROCdefine 

70 PROCinit 

9° TIME=90 

FO REM 565166 HH IER HHH EHH 

100 REPEAT 

110 PRINT TAB(2,2),TIME DIV 10a 

120 TI“Z=TIME 

130 REPEAT UNTIL TIME>DIFZ+TIZ 

140 IF INKEY(-99) THEN VDU 31, X%Z4+1, Y%t1, 32: 
PROCthrust 

150 IF INKEY(—-105) THEN SHZ=(SHZ+1) MOD 8 

160 IF INKEY(-73) THEN SHZ=(SHAt7) MOD 8 

1790 VDU 31, X41, ¥4+1, SH44+224 

1806 PROCmove_ast 

1906 UNTIL FNall_destroyed 

POD REM IE EE EEE EERE 

210 PROCTfinished 

220 END 

PQ REM WE EEE EEE RHEE 

240 DEF PROCdefine 

2098 LOCAL X%,Y%4,A% 

240 FOR X4=224 TO 233 

270 VDU 23,X%% 

2Be FOR Y“~=e TO 7 

270 READ AS 

300 VDU EVAL (C"&"+AS)} 

Sie NEXT YA 

320 NEXT X% 


48 


330 
340 
Soe 
340 
378 
SBe 
370 
41090 
4198 
429 
43¢ 
440 
450 
440 
479 
48a 
490 
568 
310 
520 
930 
340 
550 
560 
579 
Bo 
S9e 
600 
610 
628 
630 
642 
650 
640 
570 
680 
4670 
78 


ENDPROC 

FRE EHH HHH HEE EEE RENEE 
DATA 946,1C, 7C,F9,F8,7C,1C,06 
DATA 00,190,30,38, 7E,7C,F°,C@ 
DATA 66,81,E7, 7E, 7E,3C,3C,18 
DATA @0,08,0C,1C, 7E,3E,0F,93 
DATA 60,38, 3E,1F,1F,3E,38,50 
DATA 03,0F,3E, 7E,1C,0C, 9058, oe 
DAFA 18,3C,3C, 7E, 7E,E7,81,0° 
DATA CO,F°, 7C, 7E, 38, 30, 19,90 
DATA 30,1C, 7E,F8, 3E, 7E,7E,18 
DATA FF,FF,FF,FF,FF,FF,FF,FF 
REM HH HHH EKER EKER EE RHEE EEE 
DEF PROCthrust 

IF SHA=@ THEN X%=X%-1 

IF SHZ=1 THEN XA~A=X242-1: YAH=YX%+4+1 
IF SHA=2 THEN Y“~=Y%+1 

IF SH4Z=3 THEN X2Z=X44+1:Y2Z=YA+1 
IF SHZ=4 THEN X%=X2Zz+1 

IF SH%Z=5 THEN X24=XA4+12Y4Z=Y2-1 
IF SHZ2=6 THEN Y“2=YA~-1 

IF SHZA=-7 THEN X4Z=X%%-1:YA=¥%-1 
IF SGN¢X%)=-1 THEN X%=35+xX% 
IF SGN(Y4)=-1 THEN Y2#=30+Y% 
XZ=(X% MOD 38) 

YA=(YZ MOD 30) 

ENDPROC 

REA EG HEH HH HE HE EH HE HH EHH 
DEF FNread (xX%, YX) 

LOCAL. AZ,LX“~,LYZ,C% 

LxX“Z=P0S 

LYA=VPOS 

VDU 31,X%,Y% 

AZ=135 

CZ=USR (&FFF4) 

C“A=C2Z AND &FFFF 

C4“Z=C~% DIV &1900 

VDU 31,LX%,LYZ 


710=(CZ MOD 32)+4+224 


728 
73@ 
74a 
738 
740 
770 
7Be 
790 
Bee 


REM 66 HEHEHE KR RERRHREE 
DEF PROCinit 

VDU 20 

YVDU 19,1,3,9,0,0,19,90,1,9,0,9 
XA=20 

YA=26 

SH“=1 

YVDU 31, X441, Y44+1,S5H44224 

FOR RA=0 TO 319 
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8190 
820 
836 
840 
B50 
B40 
8790 
Bae 
BIO 
Feo 
F190 
720 
930 
940 
950 
76O 
778 
97Be 
999 
1900 
1¢10e 
1020 
1@30 
1040 
1050 


? CHIMEM#RZ) H=255 

? CHIMEMt*+RZ+99290) =2955 

NEXT RZ 

FOR R4Z=0 TO 3e 

VDU 31,39,R2A, 233, 233 

NEXT RZ 

VDU 233582025 05 05 O5 

FOR TFz=0 TO ASZ 
ASTACTA, O) =RND (38)-i 
ASTZ(TZ, 1) =RND (30)—-1 
ASTACTA, 2) =RND (3) -—2 

ASTZ (TAZ, 3) =RND (3) -—2 
ASTZ(TZ, 4) =TRUE 

VDU S31, ASTZ(TZ, 0) +1, ASTZAZ(TZ, 13941, 232 
NEXT TZ 

@2Z=3 

REM 

ENDPROC 

REM 56 EEE EEE EEE 
DEF PROCmove__ast 

LOCAL T%,X%,Y¥% 

FOR TA=0 TO ASX 

XA=ASTACTZ, @) 

YA=ASTZL(TAZ, 1) 

IF AST“CTZ,4) AND FNread (X441, YZ41) 45232 


THEN ASTA(TZ, 4) =FALSE 


1060 
1070 
1980 
19970 
11900 
1116 
1120 
1130 
1140 
115e 
1140 
1176 
1180 
1190 
1200 
1219 
1220 
£230 
1240 


IF ASTA(TZ, 4) THEN VDU 31, X4+1,Y241,32 
XXZ=XAZ+ASTACTA, 2) 

YA=YZ2+ASTZ(TA, 3) 

IF SGN¢(XZ)=-1 THEN XZ=38+X2% 

IF SGNCY%)=—-1 THEN YZ=30+Y% 

XZ=X% MOD 38 

YAZ=Y% MOD 30 

IF ASTZ(TZ,4) THEN VDU 31, X%+1, Y%+1, 232 
ASTAZCTA, 0) H=XZX 

ASTZCTZ, LI =Y% 

NEXT T% 

ENDPROC 

PREM 36-36-96--96-96 E362 SEE EE EE SEE EE EE EE EEE 

DEF FNalli_ destroyed 

LOCAL AZ, TA 

AZ=TRUE 

FOR TZ=e0 TO ASZ 

IF ASTZ(T4,4) THEN AZ=FALSE 

NEXT TH 


12Z50=-AX% 


1260 
1270 
1280 


REM 4 EKER EEE EEE EEE EE EER EERER 
DEF PROCfinished 
CLS 
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£290 VDU 19,1,4,90,6,0,19,9,1,9,0,0 

1306 PRINT ’°?’ "You have succeeded in 
destroying” 

i310 PRINT “all the astercids in “;TIME DIV 10 
65" seconds" 

1320 PRINT 7?"Well done."’’?” 

1330 VDU 235,0,10,64,9050;0;05:#FX 15 

1340 ENDPROC 

1350 REM 4K HEHEHE EEEKRMRREERRE 

i360 REM *** ON ERROR SUBROUTINE «** 

i370 MODE 5S 

138@ PRINT TABCZ,16)5"C HE A T he 

i390 TIME=0 

1400 *FX 9,2 

1410 #FX 10,2 

1426 VBDU 19,3,8,90,90,0,19,0,15,0,90,0 

1430 REPEAT UNTIL TIME>3900 

14490 GOTO 40 
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The Game 


This game, based on a program written by Alastair Gourlay, puts 
you in the role of Sheriff. You have to clean up the town by killing 
off all the outlaws so that decent, law-abiding folk (such as you and 
me) can walk the streets free of fear. The outlaws are, we have 
heard, ‘plenty mean’. The moment you spot one, you must. shoot 
him very, very dead... or he will draw his six-shooter and gun you 
down. It is fairly easy to shoot an outlaw: you just hit any key on 
your trusty computer when you are told that an outlaw has been 
spotted. But you must be very quick on the draw, as you'll discover 
when you run this game. You start a game with between 11 and 20 
outlaws to ‘clean up’ and you win the game only if you manage to 
get them all. 

The game is essentially a reaction test. 


The Program 

10-20 Title. 

30 Sets the mode. 

40 Decides how many outlaws are in town and sets the variable A 
equal to this number (which is between 11 and 20) 

50 Prints title. 

60 Tells you how many outlaws are left. 

70 This line ensures that around 70% of the time you will be told 
the streets are empty. 

90-110 A random delay before the streets are surveyed again. 

130 Prints out a warning sign. 

140 Clears the buffer, to await the ‘gun shot’. 

150 Waits for a time (which gets shorter as the game progresses) for 
you to react. 

150 Ifa shot has been fired (ie. a key has been touched) action is 
sent to the routine from line 240 which guns down the outlaw. 
160-230 This is the ‘you have been shot’ routine which ends the 
game. 

240 Clears the buffer. 

250-310 ‘Fires’ the gun, using the J loop and the two sound lines 
(270 and 280). 

320 Determines if you hit the outlaw or not. 

330-340 You did not. 
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350-390 Well done. You did. 
400-450 The congratulatory message if you kill all the outlaws. 


Suggestions for improvement 

* Note that if you hold down a key long enough, the Sheriff 
always wins. You could perhaps try to modify the program to get 
around this. 

* Cut off the ending message after a few seconds and give an 
option to restart the game. It is best to put the computer into Mode 
7 at the end of the current game. 


The Listing 


1@ REM GUTLAW 

2@ REM ALASTAIR SOURLAY/TIM HARTNELL 

3@ MODE7 

40 A=RND(10)+10 

30 PRINTTAB(12,3) 5 CHRS (126+RND(5) ) "OUTLAW" 

60 PRINTTAB(O6, 16) 5CHR#¢(1284+RND(5)) "There are 
"5A5”" outlaws left in town " 

70 IF RND(10)<4 THEN 130 

80 PRINTTAB(S, 8) 5CHRS (126+RND CS) ) "The streets 
are empty... 

90 T=TIME 

10@ K=RND(250) +50 

11@ REPEAT UNTIL FIME-T=K 

120 GOTO 5e 

130 PRINTFTAB(3,8)3 Con? Creer Ne Seals out, t 
here’s an outlaw! 

140 *FX 15,0 

i500 IF INKEY$(20+A)<>"" THEN 2406 

160 REPEAT 

170 PRINT?’ ?CHRS (129) 9+4444444+4++ Too slow!!! +++ 
EEEEEEEEE EE" 

18¢e RISE ERS 01 2B SEND ES)” The outlaw 


200 REPEAT UNTIL TIME-T=10 

21@ K=RND(4)-1 

22@ SOUND K,—-15,RND(10@) +125,K+1 

230 UNTIL FALSE 

240 «FX 15,0 

25@ FOR J= 1 TO 6@ STEPS 

260 PRINTTAB (3,8) 3 CHR$ (128+RND (5) ) 3s 
H* BANG 444K" 

27@ SOUND 1,-15+J/5,1,1 

280 SOUND 2,-15+J/5,2,1 

292 NEXT 

3@@ T=TIME 
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310 REPEAT UNTIL TIME-T=40 

320 IF RND(1@)>3 THEN 350 

33@ PRINTTAS(S, 8) 5 CHRS (128+RND (5) ) "RHEE EE 
You missed! %**ee EKER" 

340 GOTO i50 

35@ PRINTTAB(S, 8) 5 CHRS (128+RND (5) ) SHREK EHEEHE 
You got Him! Hee HHHEHRER” 

360 A=A-1 

370 T=TIME 

380 REPEAT UNTIL TIME—-T=300 

3970 IF A>1i THEN 59 

420 REPEAT 

410 PRINTTAB (3, 8) 5 CHR$(128+RND(35)) "Well done, 
Sheriff,you’ ve cleaned" 

42060 PRINTTAB(S4, 16) 5CHRS(128+RND(3)) “the town o 
# outlaws” 

430 SOUND 1,—-15,RND(20)+30,RND(4) 

440 SOUND 2,-15,RND(20) +36, RND(4) 

450 UNTIL FALSE 
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The Game 


This program allows you to build up images of three-dimensional 
objects and then view the finished drawing from any position in 
three-dimensional space. This has the effect of variously rotating 
and changing the size of the drawing. You can also edit the 
drawings, in a manner similar to BASIC editing, to correct errors 
or to enhance an image. ‘Sub-drawings’, such as a cube, can be 
stored under user-definable keys, to allow easy repetition of parts of 
an object. 

When you run the program, the prompt ‘Enter the X, Y and Z 
co-ordinates’ is printed near the bottom of the screen. The portion 
below this prompt is not available for drawing. The program is 
asking you to enter the co-ordinates of a point somewhere in three- 
dimensional] space. This point will then be used as the viewpoint 
from which a drawing is constructed. 

In response to the prompt, enter three numbers separated by 
commas. The numbers that you enter depend on the drawing you 
intend to construct, but usually ‘100, 200, 300’ is a suitable 
viewpoint. For this reason, it has been stored under function key 9. 
Thus a simpler method of answering the prompt is to simply press 
function key 9. 

After you answer the first question, the program asks you to 
‘Enter ‘D’ or ‘E’ (Draw or Edit)’. For the moment, press ‘'E’. This 
puts you in ‘edit mode’, where drawings can be constructed and 
edited. Entering ‘D’ would have put you in ‘draw mode’, which 
allows you to view the most recent drawing from the chosen 
viewpoint. However, as the program does not have a drawing 
stored in it at the moment, you will get no joy from this option. In 
‘edit mode’ the program responds to the keys ‘U, D, L, R, F, B, 8, O, 
P’ and ‘Return’. Pressing ‘Return’ brings you back to the initial 
prompt and stores the current drawing. The first six keys in the 
above list draw lines in the following directions: 

'U’ up 
‘D’ down 
‘L’ left 
‘R’ right 
‘F’ forwards 
‘B’ backwards 
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You can try experimenting with these keys in various 
combinations. If you get confused, just press ‘Return’. (It is worth 
commenting that if you choose to edit from a ‘negative viewpoint’ 
{eg. — 100, — 200, 300), the above keys will work in the opposite 
sense, since the ‘F’ key adds a certain amount to one of the three 
co-ordinates. From a negative viewpoint, an addition will result in 
a line going away from the user. The implication of this is to avoid 
editing a drawing from a negative viewpoint). 

If, after pressing ‘Return’, you still wish to use some of the parts 
of your previous drawings, you can use the ‘cursor keys’ and the 
‘copy’ key to copy parts of the previous drawing, since all key 
presses also appear printed on the screen. 

The ‘S’ key is used to change the size of the lines drawn using 
the above keys. The initial, default, size is ‘8’. To change size, press 
‘S’ and then a number key from 1 to 9. Thus ‘S4’ will halve the size 
of the lines drawn. 

The ‘O’ and ‘P’ keys are used to change the kind of lines drawn. 
Normally, solid lines are drawn, but by pressing ‘P’ these can be 
changed to dotted lines. Similarly, pressing ‘O’ will return the 
program to drawing solid lines. These dotted lines are left out when 
the drawing is drawn using the ‘D’ option in answer to the second 
prompt; so, by judicious use of these keys, you can draw pictures 
which do not ‘join up’ all over. The ‘etch-a-sketch’ program in the 
Welcome Pack uses a similar method to allow you to move to 
another part of the screen without leaving a trace. 

That covers the edit mode. To prepare a picture for the ‘draw 
mode’ to act upon, proceed as follows: Press ‘Return’ to return you 
to the initial prompt, and enter suitable co-ordinates again. 
Function key 9 is still a suitable viewpoint. After pressing ‘D’ in 
response to the second prompt, the program will draw your picture 
from the chosen viewpoint, which is displayed at the top left of the 
screen; but it will not draw any of the dotted lines. 

When it has finished, it waits for you to press one of the keys ‘U, 
D, L, R, F, B’ or ‘Return’. ‘Return’ returns you to the first prompt 
as before, and the other keys change the viewpoint by 80 units in 
the direction they indicate. Thus repeatedly pressing ‘L’ will move 
the viewpoint to the left, and so seem to rotate the drawing. You 
can have great fun using this mode. 

In response to the first prompt, you can also press function key 8 
as the new viewpoint. This deposits ‘0, 0, 0’ as the new viewpoint. 
In this case, the program inserts random values for the three co- 
ordinates, to allow special effects. 

To store a section of a picture under a function key, it is 
necessary to ‘escape’ into the program and type something of the 
form '*KEY O*’", inserting within the quotes the section you 
want to store. This can be edited down from the screen display. 
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The Program 

10-150 This section of the program initialises some variables: 

SP is a pointer into the string array which stores the current 
drawing. That is, it contains a number equal to the subscript of the 
string array which is currently being processed. 

mode is a variable which will have a value of 0 for a model B 
machine and 4 for a model A machine, since it governs the screen 
mode the program will run in. 

fines is a variable containing the number of lines per page in the 
current screen mode, selected by ‘made’. This will almost always 
have a value of 32. 

columns is a variable containing the number of characters per line 
in the current screen mode. This will be either 40 or 800. Thus to 
run the program in a model A machine, change this variable and 
‘mode’ in line 20. 

foreground_number is the number of the normal foreground colour. 
Thus for Modes 0 and 4 it will be 1, since the normal foreground 
colour is 1. 

background_colour is the number governing the colour the 
background of the screen will be. I have chosen cyan, indicated by 
the 6. 

foreground_colour is the number governing the colour the 
foreground of the screen will be. I have chosen red, indicated by the 
1. 

&0, 90 Define the two user-defined keys used by the program. 

100, 110 Declare how many key presses the drawing may be made 
up of, and then dimension a string array S$ to store all the key 
presses. It is this array that the variable SP is pointing into. 

120 Puts the computer into the screen mode selected in line 20. 

130 The call to PROCSPLIT here calls a sub-program which 
partitions the screen into the graphics and text windows, and 
moves the graphics origin into the centre of the graphics window. 
140, 150 Change the screen colours according to the previously 
selected colours. 


160-200 This section is the main program — all five lines of it. The 
program repeatedly calls PROCGET, which presents the user with 
the various prompts outlined above and extracts answers to the 
questions. Depending on the outcome of the second prompt, the 
program calls PROCDRAW or PROCEDIT. 

The CLG statement clears the graphics window between Mode 
switches. 


210-250 These lines make up PROCSPLIT. They first define a 
graphics window and then relocate the graphics origin to the 
bottom left of the window. A screen window is defined. 


260-330 These lines make up PROCACT. U, V and W are variously 
the current viewpoint and the current plotting position, Thus this 
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routine decrements or increments these variables according to A$. 
The change is governed by the variable G, which is usually the size 
of lines drawn in the ‘edit mode’. 


340-360 These lines make up PROCINIT. The variables U, V and W 
are initialised to zero for the edit routine and the draw routine. 


370-430 These lines make up PROCVIEW. PROCVIEW sets up the 
variables used by the plotting routine, according to the current 
viewpoint (A, B and C). In addition, L, M and N are made equal to 
the current view position. The next routine, PROCPLOTS, uses ali 
these variables. 


440-500 These lines make up PROCPLOTS. This routine is a three- 
dimensional equivalent of the standard PLOT statement. Thus K is 
exactly equal to the first argument of the PLOT statement. The 
operation of this routine is complex, but it depends on the 
constants defined in the previous procedure. 


510-590 These lines make up PROCGET. This procedure presents 
the user with the prompts outlined above, and inserts the random 
viewpoints if required. 


600-790 These lines make up PROCPICTURE. This procedure is 
the main working section of the program, since it is the portion 
used by both draw and edit modes to construct the picture. 

U, V and W are defined to be LOCAL, since these variables are 
also used outside this procedure. A$ and G are defined as LOCAL 
also, because the value of A$ has to be preserved, as does G. 

PROCINIT is called in line 620 to zero the three LOCAL 
variables U, V and W. Then PROCVIEW is called, to initialise the 
constants required by PROCPLOTS. Then the program repeatedly 
gets key presses from FNGET, and draws the necessary lines. 

The value of MOV defines whether dotted lines are to be drawn 
or left out, depending on whether the procedure is called from the 
DRAW or EDIT sections of the program. This section of the 
program is fairly simple, since it relies almost exclusively on other 
procedures and a function. 

The point to bear in mind when reading this section is that INP 
is a variable which is true if the procedure was called from the 
EDIT section, and false otherwise. 


800-870 These lines make up PROCSIZE. This procedure is called 
whenever ‘S’ is encountered in the list of characters which define a 
drawing. Only if INP is true is the numeral following S printed out. 


880-890 These lines make up the function FNGET. This function 
chooses whether to get input from the keyboard or from the string 
array 5S. 


900-940 These lines make up PROCEDIT. This routine simply calls 
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PROCPICTURE, having previously defined MOVes to he dotted 
lines and having set INP equal to TRUE. 


950-1120 These lines make up PROCDRAW. The current cursor 
position is saved in temporary registers at line 960, then a new text 
window of the same size as the current graphics window is defined. 
This is to allow the current view position to be displayed at the top 
of the sereen. 

MOV and INP are assigned as necessary, before a loop is entered 
which repeatedly draws the current picture, and moves the current 
view position according to the direction keys, until ‘Return’ is 
pressed. When the loop has been exited the old screen windows are 
established, and the cursor moves to its old position. 


Suggestions for improvement 


« The program could be made more user-friendly by allowing the 
user to input a two-digit number after S; improving the prompts; 
allowing curved and diagonal lines; and allowing the function keys 
to be programmed directly by the program. Most of these 
enhancements could not, however, be made on the Model A 
machine because of its limited memory. 

« The program could be speeded up considerably by calculating a 
new picture while a previous one is being displayed, and 
compressing the program’s structure. 

¢ Does the program exit ‘gracefully’? If you think not, modify it 
to do so. 


The Listing 


10 SP=1 

28 mode=-o 

30 lines=32 

40 columns=8¢ 

398 foreground _number=1 

6@ background_colour=-& 

7@ foreground_colour=1 

80 *KEY? "100,200, 35060:M" 

90 *KEYS °0,0,0:M" 

100 storage=-8Ox4 

110 DIM S#(storage) 

120 MODE made 

13@ PROCSPLIT 

140 VDU 19,90,background_colour,9,9,9 

150 VDU 19,foreground_ number, 
foreground_colour,?,0,90 

164@ REPEAT 

17@ PROCGET 

186 IF A&="D" THEN PRGCDRAW ELSE PROCEDIT 

1990 CLG 
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UNTIL FALSE 

DEF PROCSPLiT 

VDU 24, 052563 1279; 10233 

VBU 29,035 2565 

VDU 28,@, lines—1,columns~1, 24 
ENDPROC 

DEF PROCACT (AS) 

IF 4$="U" THEN W=W+G 

IF At="D" THEN W=W-6S 

IF AS="L" THEN U=U+G 

IF 4$="R" THEN U=U-6G 

IF AS="F" THEN V=V¥+6 

IF Ats="B" THEN V=V-G 
ENDPROC 

DEF PROCINIT 

U=0: V=0: bree: G=8B6 

ENDPROC 

DEF PROCVIEW(A, B,C) 
=A*x*A+B#*D 

T=S+C#C 

8=SHR (CT) 

R=SOR(S) 

L=A:M=B:N=C 

ENDPROC 

DEF PROCPLOTS(K,U,V,W) 
LOCAL O 

G=T—-U*L—V*M—-W*N 

C=T* (VEL~U#M) #4/ (R*¥0) +5640 
D=386443#0*% (WHS—N# (LREL+V4M) ) / CREDO) 
PLOT K,C,D 

ENDPROC 

DEF PROCGET 

INPUT "Enter the X,Y and Z co-ordinates " 


PRINT “Enter *’D’ or ’7E”. CDraw or Edit] "™ 


IF @=@ THEN 4= (50+RND (3@@) ) *SGN (RND) 
IF B=0 THEN B=(50+RND (300) ) *SGN (RND) 
IF C=0 THEN C=(50+RND (340) ) ¥SGNCRND) 
AS=GETS 

PRINT 

ENDPROC 

DEF PROCPICTURE (A,B,C) 

LOCAL U,V,W,AS,G 

PROCINIT 

PROCVIEW(A, B,C) 

SP=1 

PROCPLOTS (49, @,0,@) 
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440 G=Be 
670 K=5 
6680 REPEAT 
6990 AS=FNGET: S$(SP)=AS 
7O@ IF INP=TRUE THEN PRINT A%5 
71i@ PROCACT (AS) 
72@ PROCPLOTS(K,U,V,W) 
730 IF AsS="S" THEN PROCSIZE 
740 IF As="0" THEN K=5 
756 IF As="P" THEN K=MOV 
760 SP=SP4+1 
770 UNTIL AS=CHRS(13) 
7BO PRINT 
790 ENDPROC 
860 DEF PROCSIZE 
81@ LOCAL AS 
820 SP=SP+1 
830 AS=FNGET 
840 IF INP=TRUE THEN PRINT AS5 
850 G=10*VAL (AS) 
G60 S$ (SP)=AS 
870 ENDPROC 
880 DEF FNGET 
890 IF INP=TRUE THEN VDU 7:=6ETS ELSE=S% (SP) 
900 DEF PROCEDIT 
910 MOV=21 
920 INP=TRUE 
930 PROCPICTURE (4,8,C) 
940 ENDPROC 
950 DEF PROCDRAW 
960 TPOS=P0S: TVPOS=VPO0S 
9779 VDU 28,0, 23, columns-—t,9 
98e G=S8e 
990 MOV=4 
1000 INP=FALSE 
1910 U=A: V=5:W=C 
1020 REPEAT 
19030 PRINT "Current view position is... "5U;" 
"SV5 “ow 
1040 PROCPICTURE(U,V,W) 
1050 VDU 7 
1060 At=GETS 
1070 CLS 
108@ PROCACT (At) 
19990 UNTIL A&S=CHRS(13) 
119@ PROCSPLIT 
1110 VDU 31, TPOS, TVPOS 
11206 ENDPROC 
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Bn Models A and B 


The Game 


"Codebreaker’, or variants of it, has been popular in England for 
centuries under the name ‘Bulls and Cows’. 

The computer ‘thinks of’ a code consisting of four colours 
chosen from six possible colours. You have 10 guesses to work out 
which four colours the computer has in mind. All four colours in 
the code are different to each other. Not only do you have to guess 
the colours but you must also discover where in the sequence each 
colour stands. 

The computer helps you after each guess, in terms of ‘blacks’ 
(correct colours in the correct position) and ‘whites’ (colours which 
appear in the code, but not in the position you specified). 

When you run the game, the numbers one to six, and the colours 
they represent, are shown at the top of the screen. You enter your 
guess by typing in the numbers which represent the colours but 
together as one four-digit number which the computer ‘strips 
down’ into four separate ‘colours’. Each of your guesses, and the 
feedback information on it, stays on the screen, so you can use the 
information given on earlier guesses to improve later ones. 


The Program 

10 Title. 

20 Sets the mode. 

30 Turns off the cursor. 

40 Clears the buffer. 

50 Dimensions the arrays to hold the computer’s number and 
processes your puesses. 

70-140 Instructions for you, including a print-out of the six colours 
from which the code will be guessed. 

150-160 The GET$ waits for any key to be pressed, and the screen 
clears for the game to begin. 

180-200 Prints out the six colours and their corresponding 
numerical codes. 

220-300 Selects the four-digit code, making sure that all digits are 
different. 

310 Starts the loop (terminated in 630) to give you up to 10 guesses. 
330 Accepts your guess. 

240 Moves the print position back to overprint your input. 
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350-390 Strips your guess down to four separate digits. 

400 Sets the counters for black (B) and white (W) to zero. 

410-450 Looks for blacks, converting any element of the array 
found to be a black to zero, so it will not be recounted when the 
whites are assessed. 

460-520 Looks for whites, jumping over (line 470) any elements of 
the array which have been set to zero. 

530-600 Prints out the colour version of your guess, and the score 
you have achieved. Note that all the foregoing, from line 380 to this 
point in the program, happens extremely quickly, so you have the 
impression that once you type the number in it is reprinted more or 
less immediately as four colours, together with a score. 

630 If there are less than four blacks (that is, B is not equal to four) 
the computer goes back to line 320 for the next guess. 

610-620 ‘Congratulations’ message if the code is guessed correctly. 
650-700 Prints out the complete code, either because it has been 
guessed, or the 10 guesses are over. Line 680 puts a maddening 
pause into the print-out, just to frustrate you if you are desperate 
to know what the code was. 

710 Pauses before offering new game. 

720-780 Offers you a new game; and, for any answer except one 
beginning with N or n, gives you a new game, 


Note This program can be improved considerably. For instance, it 
would be neater to put the computer into Mode 7 at the end of the 
program, and also give the user the option of ending it ‘gracefully’. 


The Listing 


10 REM ** Codebreaker ** 

20 MODE 7 

30 VDU 2358202505959 

4O *FX 15,94 

50 DIM C(4),G6(4),H(4) 

6@ CLS 

70 PRINT ’77CHRS(133)3"I am thinking of a 
four—-colour code," 

8@ PRINT CHRS(133)5 "which you have i9@ goes 
to guess." 

9@ PRINT ”7?’CHR#(134)3"I am choosing from 
these colours:"’” 

190@ FOR colour=1 TO é 

116 PRINT CHRS (135) scolours ">"; CHRS (128+ 
coOlour}d3;"*% "5 

12@ NEXT 

13@ PRINT’? *CHR#(12935"Al] four colours are 
different." 

146 PRINT’’?’??°CHR¢(131)5"Press any key to 
begin..." 
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ise 
168 
179 
186 
198 


AS=6ETS 

ELS 

PRINT??? 

FOR colour=1 70 6 

PRINT CHR#(135) scolours ">"3CHRS (125+ 


colour); "# "5 


200 
210 
220 
230 
240 
250 
260 
2798 
280 
290 
300 
310 
320 
330 
3490 
350 
560 
37® 
386 
3970 
400 
410 
429 
430 
440 
450 
460 
47@ 
4580 
490 
108 
318 
328 
530 
740 


NEXT 

PRINT *”? 

C(1)=RND(4) 

Z=1 

Z=Z+1 

C¢(Z)=RND(4) 

J=0 

J=J+1i 

IF C(IX=O(Z) THEN 230 

IF J3<Z-1 THEN 2706 

IF Z<4 THEN 240 

FOR G=1i1 TO 190 

PRINT CHR#(133)5 "Enter guess number “3G 
INPUT A:IF A<1@00 OR A>9999 THEN GOTO 330 
PRINT CHR {(11>CHR#(11)CHRt®(11) 
FOR Z=1 TO 4 
G(Z)=A—-10*# INT (A/19) 

H(Z)=G(Z) 

A=INT (A/190) 

NEXT 

B=0:W=0 

FOR Z=1 TO 4 

IF C(Z)<>G(Z) THEN 450 

B=B+1 

6(Z) =e 

NEXT 

FOR Z=1i TO 4 

IF G(Z)=0 THEN 520 

FOR J=1 TO 4 


IF €(2Z)<>G6¢(3) THEN Sie 
W=W+1 

NEXT J 

NEXT Z 

FOR T=4 TO 1 STEP -1i 


PRINT CHRS (1264H(T))5 "#"5 


550 NEXT 

D6@ PRINT CHRS$ (132) 5 "scored" 5 CHRS (129) 5B; " 
black"3 

370 IF B<>1 PRINTF "s"$3 ELSE PRINT "™ "5 

DB@ PRINT CHR$(132)5 "and"5CHRS (129) 5W5" 
white"s5 

590 IF We>1 PRINT "s" ELSE PRINTF 


64 


6190 IF B=4 PRINT CHR#(133)5 "You guessed it... 
in just “5G3" quess"; 

620 IF G>1 AND B=4 PRINT "es" 

630 IF B<>4 NEXT G 

640 PRINT CHRS (11) CHR# (11) CHR (11) 

6590 PRINT 77 TAB(3)5CHRS(134)5 "The code was">5 

660 FOR H=1 TO 3@60@: NEXT 

670 FOR T=4 TO 1 STEP -i 

680 FOR H=1 TO 2600: NEXT 

699° PRINT CHRS (12684007) 95 "#5 

7@O NEXT 

710 FOR H=1 TO 8000:NEXT 

720 PRINT *’CHRS(134)5 "Do you want another 
game?" 

730 PRINT CHRS(132)53;TAB(S8)5"Enter Y or N" 

740 AS=GETS 

750 IF ASC AS<> ASCE *N" AND ASC At<> ASE "nn" 
FHEN RUN 

760 CLS 

77@ PRINT’’’?7CHRS(i36)5"OK, bye for now!" 

780 END 
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The Game 


This program is similar to ‘Codebreaker’ except that instead of 
using colours the computer thinks of a four-letter word (which, 
you'll be pleased to know, will be remarkably pure). You are given 
ten guesses to work out the word. The words are held in the DATA 
statements from lines 800 to 900, and these can easily be changed 
when you get to know the 40 words provided in the computer’s 
vocabulary. It is useful to make the words you put in the DATA 
statements similar to each other (words such as FEAT, FEAR and 
NEAT; or FACE and FATE) so that it is somewhat difficult to 
guess the word. 

You play the game just as you would ‘Codebreaker’, entering 
your guess (a four-letter word), for which you are awarded ‘blacks’ 
(correct letters in the correct position) and ‘whites’ (correct letters 
in the wrong position). In many ways, this game is more 
challenging than ‘Codebreaker’ because the computer can choose 
from 26 variables, rather than just six. But the letters within the 
code do bear some relationship to each other, so it is often easier to 
work out the missing letters from the way the word Is ‘shaping up’, 
rather than from the computer’s feedback. 


The Program 

10 Title. 

20 Sets the made. 

30 Turns off the cursor. 

40 Sets up arrays to hold the codes of the letters of the words. 

50 Sets the DATA pointer back to the beginning of the list of 
words. 

70 Sends action to the procedure which selects the required word. 
80-120 Brief instructions, and a key-press (line 110) to get the game 
underway. 

140 Start of the master loop which counts the number of guesses. 
This loop terminates in line 430. 

160 Accepts your guess. 

170 Asks for a new guess if the one just entered is not. a word of 
four letters. 

180-190 Sets the counters for black (B) and white (W). 
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200 Compares your word (B$) with the computer’s word (C$) and, if 
they are the same, sends the computer to the procedure PROCwin. 
210-270 Compares the letters of the computer’s word with your 
word to find blacks, substituting any letter which is correct with 
the code for 9. 

280-350 Checks the word for whites, jumping over any letter which 
isa ‘9’. 

360 Converts C$ back into the original word 

370 Moves the print position up to print over your input. 

390-420 Prints out your word in a randomly selected colour, and 
gives an assessment. 

450 ‘Sorry’ message if the word was not guessed. 

460 Directs action to the procedure PROCword which prints out 
the word the computer was thinking of. 

470 Directs action to PROCnextgo to offer you another game. 
500-550 This procedure selects a word from the DATA store by 
reading through it to a random point. 

570-620 This procedure congratulates you for guessing the word, 
prints out the word (PROCword) and offers you a new game 
(PROCnextgo). 

640-660 Prints out the word the computer was thinking of. 
680-760 Offers you a new move, prints farewell message if a new 
game is not wanted. 

800-900 The 'DATA-bank’ vocabulary. 


Note As it stands, the program will accept an input such as ‘1234’ 
or ‘&&&&". Program your way around this, and improve the ending 
message so that it does not run interminably if you don’t press 
‘Escape’. 


The Listing 


1GREM*MASTERWORD#* 

2OMODE?7 

SOVDUZS; 8202505050 

40DIME (4) ,F (4) 

S@RESTORE 

SOREMH HEH HERA KE RHEE EE 

7@PROCFind_a_word 

A@PRINT’ 7? *CHRS(128+RND(6))5"I am thinking 
of a four-letter word,” 

9OPRINTCHRS (128+RND (6) ) 5“ which you 
must try and guess” 

1Q@Q@PRINT’ ”’’?? CHRS (128+RND(46))5 "Press any key 
to begin" 

110D4=GET% 

120CLS:PRINT’ ”? 

ISOREMN**##2the gamex*x** 

140FORE=1T01@ 
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IS@PRINTCHRS (1284+RND(6))5 "Enter quess number 
"SE 
160INPUTBS 
1i7OIF LEN(BS)<>4 THENI50 
18e@B=e 
19OnW=6 
2Q0GIF Bt=CS PROCwin 
ZiGREM**x*eget blacks*** 
220FORC=1TO4 
2350E (C) =ASC (MIDS (AS,C) > 
240F (C)=ASE (MIDS (BS,C)> 
2501IF E(C)=F(C) B=B+1 
260IF ECC)=FCC) ECC) =ASC"S" 
2Z7ONEXT 
ZBQ@REM**#¥*XGget whitesx** 
Z290FORC=1T04 
SOQOIFE(C)}=ASC"9" THENS5S90 
S1@FOR D=1TO4 
S2Q0IF E(C)<>F(D) THENS49O 
S3OW=W+1 
S4ONEXTD 
SSONEXTC 
S60AS=CE 
370PRINTCHRS (11) CHR (11) CHRS(11} 
SBOREM**#*¥print result *x** 
SIOPRINTCHRS (128+RND(6))5BS5" — "3B5" black"; 
4@0IFB<>1 PRINT's"$ ELSE PRINT" "Ss 
41OPRINT" and "3W5" white"5 
420IFW<C>1 PRINT"s" EFLSE PRINT 
43QNEXTE 
44O0REMe**1F didn’t gquess*** 
45@PRINT? ? CHR (128+RND(46))5"Sorry, time is 
4460PROCword 
470ePROCnextgo 
4B0CEND 
AF OREM #646 EE EE EEE EE 
S@ODEF PROCfind_a_word 
310 FORT=1TORND(40) 
~ZOREADAS 
S3CNEXT 
540e0C#=ASs 
S5@ENDPROC 
SSOCREMHEREKEREEEHEEEEEEE 
S7@DEF PROCwin 
SSOPRINT’ ? CHRE (128+RND(4))5 "You got it right 
in just "3E3" guess"5 

SSCIFE>t PRINT"es" ELSE PRINT 
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up 


600PROCwor d 

61@6@PROCnextgo 

62@GENDPRGC 

SSOREMH HHH HHH H KEE EEE 

640DEF PROCword 

690 PRINT CHR#(128+RND(6))5 "The word was"; 
CHRS (128+RND (4) ) 5 AS 

4460ENDPROC 

G7OREME KEK HEK EE KERR EE 

SBODEF FROCnextgo 

&70PRINT?’ ? CHRS (128+RND(6))5 "Do you want to 
play again?" 

79OPRINT’ CHRS (128+RND(6))5 "Enter Y or N" 

ViIOZS=GETS: IF ZS<>"N" RUN 

7F2ZOREM#**farewell messagex** 

73e0CLS 

J4I@REPEAT 

7S@PRINTCHRS (128+RND(5))5 "OK, thanks for the 
game" 

76Q@UNTIL FALSE 

77@ENDPROC 

FREOREMH RHEE ERE 

79OREM*#words — change to suit** 

BeeDATA"FACE", "FATE", "FEAT", "FEAR" 


a 
BAODATA"DASH", "NEAT", "PUSH", "PAST" 
B2ODATA"DATE", “DIET", "DEAD", "GRAB" 
BSODATA"SAID", "DAIS", "DUET", "DUEL" 
B4@DATA"RANT", "RAVE", "MARS", “GETS" 
S5@DATA"TINY", "TRIP", "PERT", “REST” 
B4S@DATA"ROAD", "RAID", "SOUL", “SOLE” 
B7ODATA"STAY", "THIN", “"GQVER", “DOWN” 
B80@DATA”PEST”, "LONG", "LAST", “LIST™ 
B9@DATA"MANY", "MOST", "ONLY", "QUIT" 
FOODATA"QUIZ", "PACE", “BATS”, "CATS" 
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| | Models A and B 


The Game 
In this game you pilot a space-ship across the screen, from left to 
right, for a predetermined number of trips, dropping bombs on a 
line of asterisks. If you hit one, that asterisk disappears; if you 
miss, another one appears . The object of the game is to obliterate 
all the asterisks. 

You drop bombs by pressing any key (except ESCAPE, 
CONTROL and SHIFT). 

A continuously updated display of the ‘pass’ you’re on and your 
current store is maintained at the top of the screen. 


The Program 

20 Removes the delay between a key being pressed and its 
repeating. 

30 Sets the number of passes across the screen that will be made. 
40 Sets the speed of the game. 

60 Puts the machine in Mode 7. 

70 Places the code for blue alphanumerics at the start of line 20. 
80 Places the code for red alphanumerics at the start of line 10, 

90 Starts a loop from line 11 to line 19 of the display. 

100 Puts the code for magenta alphanumerics at the start of each of 
the lines. 

110 Ends loop. 

120 Starts a loop from one to 39. 

130 Calculates the address of the T’th point on the 20th line of the 
screen. 

140 If T is odd, puts an asterisk at that place, else puts a space. 

150 Ends loop. 

160 Sets the score to 20, since there are 20 asterisks on the screen. 
170 Moves the cursor to the tenth position on the top line of the 
display. 

180 Prints the current score, in yellow. 

190 Moves the cursor to the tenth position on the second line down 
the display. 

200 Prints the current score, again. A double-height code will 
shortly be printed. 

210 Sets up a loop for each of the PASSes that will be made. 

220 Homes the cursor. 
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230 Prints the PASS number. 

240 As above. 

250 Starts a FOR loop across the screen for your gun. 

260 Places your gun on the screen. 

270 Ifa key has been pressed, calls PROCFIRE. 

280 Empties all buffers. 

290 Removes the gun from the screen. 

300 Ends loop, enables editing keys. 

310 Restores key repeat. 

320 ENDs the game. 

330 Starts the definition of PROCFIRE. 

340 Sets all variables used in PROCFIRE to LOCAL. 

350 Starts a loop from the position of your gun on line 10 to line 20. 
360 Places the bomb symbol, an upright ‘equals’ sign, at each 
position on the way. 

370 Starts a very short delay. 

380 Finishes delay. 

390 Replaces the bomb with a space. 

400 Ends the ‘bomb’ loop. 

410 D will have been incremented at the NEXT statement, so it is 
safe to test the character under D. If it is an asterisk, replaces it 
with a space and decrements the variable SCORE. If not, puts an 
asterisk there, and increments SCORE. 

420 See line 170. 

430 See line 180. 

440 See line 190. 

450 See line 200. 

460 Ends PROCFIRE. 


Suggestions for improvement 

¢ Sound effects would enhance the game; so would the superior 
graphics available in Mode 4. To transfer the game to a different 
mode, you will need to use FNREADCH given in the chapter of *FX 
calls in the User Guide, to find out which character is at a 
particular position. 


« You could change the game so that you can alter your direction 
but not your speed. 
¢ Does the game exit ‘gracefully’? If not, modify it to do so. 


The Listing 
16 *#FX 4,1 
20 *¥FX 11,1 
38 PASS=S5 
40 SPEED=20 
5e@ REM *##*# KILiL *#2#* 
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60 MODE 7: VDU 235382025 03030; 

7@ ?CHIMEM+20%40)=4 

80 ? (CHIMEM+19*490)=1 

7@ FOR T=11 TO 19 

166 27 CHIMEM+T #40) =5 

110 NEXT T 

i2® FOR T=i TG 39 

130 P=HIMEN+20*40+T 

140 IF ¢(T MOD 2)=1 THEN ?P=ASC("*">) ELSE ?P=3 


350 NEXT T 

140 SCORE=20 

17@ VDU 31,10, 

186 PRINTCHRS (128+3) 3 "“SCORE=", SCORE 

19@ VDU 31,10,1 

2@6 PRINTCHRS (128+3) 3 "SCORE=", SCORE 

210 FOR T=PASS TO 1 STEP -1 

22 VDU 30 

230 PRINT CHRS(13+128) 3 CHRS(2+128) 5 "PASS="5 
PASS+1-T 

240 PRINT CHR#$(13+128) 3 CHRS (2+128) 5 "PASS="3 
PASS+1-T 

250 FOR G=32145 TO 32183 

26 ?G=ASC ("0") 

270 IF INKEY(SPEED)<>TRUE THEN PROCFIRE 

280 *FX 15,0 

290 ?G=32 

3O@ NEXT G,T:*FX 4,0 

31@ *FX 12,2 

32@ VDU 233291943 03 03 3 = END 

330 DEF PROCFIRE 

346 LOCAL D,T 

35@ FOR D=6+40 TO Gt9*40 STEP 40 

360 ?PD=ASCC"E") 

370 FOR T=i TO 10 

380 NEXT T 

390 ?D=32 

40@ NEXT 

41@ IF ?D=ASC("*") THEN ?D=32: SCORE=SCORE-1 
ELSE 7D=ASC("*”)  sSCORE=SCORE+1 

420 VDU 31,10, 

430 PRINTCHRS(128+3) 5 "“SCORE=", SCORE 

44@ VDU 31,12,1 

45@ PRINTCHRS (128+3) 5 "SCORE=", SCORE 

46@ ENDPROC 
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Models A and B 


Dome Dweller 


The Game 


This game is in the classic ‘Kingdoms’ genre. In most ‘Kingdoms’ 
games (including the one on the Welcome Pack which came with 
your computer) you rule an ancient colony in which your 
administrative decisions seem limited almost solely to how many 
acres of land you buy and how much corn you plant. Your attempts 
to prove a wise and just ruler are constantly thwarted by such 
natural disasters as floods, rats, thieving neighbours and killer 
bees, all of which are triggered by the random number generator. 

This game is a little different. Although the starting parameters 
are randomly selected, once you’ve got them they are — more or less 
- yours for the duration of a particular game. Apart from an 
occasional attack from outer space (which will not necessarily 
oceur every time you play the game) the fate of your lunar dome 
depends entirely upon the wisdom of your decisions in buying and 
trading. 

When the game begins (year one) you have somewhere between 
81 and 120 people living in a lunar dome. You have a limited 
amount of oxygen and food in the stores, and a limited amount of 
money in the treasury. Your people need a certain amount of food 
and oxygen to survive each year; the costs of these basic necessities 
vary from game to game. 

Your only means of raising money to buy more food and oxygen, 
and pay the annual maintenance on your dome, is to trade your 
‘unique lunar sculptures’ with the inhabitants of other domes. 
This, as you can see, is hardly a mixed economy. However, each 
lunar sculpture uses up precious oxygen in its manufacture; so the 
amount of oxygen you have, and the number of people you must 
support on this oxygen, limits the number of sculptures you can 
make. From time to time you'll have very generous starting 
parameters — a lot of oxygen, few people, and low oxygen needs for 
both the people and the sculpture manufacturing process. If this is 
so, the dome will last forever (unless you are exceptionally 
dimwitted) and you will end up with millions in the treasury. 
However, if the starting parameters (even one of them) are not 
favourable, or you are simply a hopeless administrator, you will not 
get beyond year 12. 

‘Dome’ has another important difference from the old ‘Ruler of 
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the Kingdom’ games. Instead of some worthless subject beginning 
the annual report to you with: 'O Ruler of Sumeria...’, as Dome 
Master you learn of the state of your domain through the dome’s 
computer. The game output is designed to look just like the possible 
output of such a computer ‘in real life’ would look; and it is 
possible, when you're playing this game late at night by yourself, to 
become completely wrapped up in it, and almost start believing 
there is a real dome out there whose survival depends on you. 

There are a number of small elements in the program which you 
may only appreciate after you have played ‘Dome’ many times. 

To make the program easier to modify and follow, explicit names 
are given to the variables. Although these take longer to enter, it 
makes for a much clearer program, and you should find it fairly 
easy to find your way about it. The variables are: 


YEAR The year of your dome’s life, with the game starting 
at year one. 

AS The tragic phrase, ‘The lunar dome is dead’. 

FOLK The number of people within your dome. 

CASH The money in the Treasury. 

FOOD The quantity of food in your food stores. 


FOODCOST How much you must pay per unit of food. 

FOODNEED How much each of your FOLK consume each year. 

ARTCOST The number of units of oxygen it takes to make one 
of your dome’s famed pieces of sculpture. 

ARTPAY How much you can get for these remarkable 
creations, 

OXY The amount of oxygen in your tanks. 

OXYNEED How much oxygen your FOLK each need per year. 

OXYCOST ‘The price of each unit of oxygen. 

REPAIR Your annual maintenance bill. 


The names of the procedures are self-explanatory: year_pop_ 
update; computer_report; food; oxygen; oxydeath; fooddeath; 
eashdeath; folkdeath; drawline (which ‘rules off’ each report from 
your computer); trading; attack (which assigns NASTY$ to the 
name of the attacking forces!); and warningbell. 


The Program 

10 Title. 

20 Sends action to the initialisation procedure. 

30-120 The main REPEAT/UNTIL loop. It cycles through the 
updating of the year and the number of people within your dome, 
and gives you the chance to make and trade your precious 
sculptures and buy food and oxygen. From time to time, if you’re 
unlucky, the random number generator (see line 110) will decide it 
is time a NAST Y$ burst in from the vacuum and inflicted some 
damage. 
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130-320 This is the initialisation procedure which sets the starting 
parameters for your term of office. 


290-310 This procedure adds one to the year and increases your 
population. You'll find that in some games your dome dwellers 
appear to have learned their breeding habits from terrestrial 
rabbits; in others, they seem to have better things to do (like 
making those sculptures or fending off NASTY$). 


330-520 This is the major procedure (PROCcomputer_repori) in 
the game. It controls the information the dome’s computer feeds to 
you during the game. Lines 350 to 380 are the ‘doom’ ones, which 
terminate the game if you run out of food, money, oxygen or people. 
Lines 390 to 420 are the ‘warning bells’ which let you know when 
supplies of anything are nearing critical levels. Lines 430 to 500 
print out in every round of the game (a round is four months long) 
to keep you in touch with your dome. The figures in this are 
updated between rounds when necessary. 


530-590 This procedure, ‘drawline’, draws a red line across the 
screen, pauses, and makes some squiggly noises. 


600-690 This is the creative procedure, where you at last get a 
chance to make those pieces of sculpture. The only limit on the 
number you can make in a year is the amount of oxygen. The 
computer will not allow you to attempt to make more than your 
oxygen would permit (see warning in line 640). 


700-810 The computer tells you how much food you have in stock 
and how long this will last for the present population. It also gives 
you the chance to buy as much food as you can afford. The 
computer ensures (line 770) you do not try to overspend. ‘Neither a 
borrower nor a lender be’ is the rule on the moon. 


820-920 This procedure allows you to buy oxygen, the most vital 
ingredient in your dome’s economy and the one element in the 
economic mix which you can most easily mismanage. 


930-1260 This is the most dramatic procedure, the one when 
NASTY$ attack. Note the routine from lines 980 to 1000. It 
determines which of the baddies has got at you this time. The rest 
of the procedure gives you the bad news .. . in detail. 


The balance of the program is made up of procedures which you 
trigger when you’ve made some fatally bad decision or series of 
decisions. These procedures all trigger the final one (‘warningbell’) 
until you're sick to death of its sound. 

1270-1330 You have run out of oxygen. 

1340-1410 You have run out of food. 

1420-1500 You have run out of money. 

1510-1620 You have run out of people and, as the program happily 
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informs you, ‘You are the only one left alive on your dome ~ you 
have betrayed your Oath of Office ... I hope you feel real bad !111" 


1630-1680 The sound you’re going to come to hate — the sound of 
the warning bell. 


Suggestions for improvement 


* Make it much harder to play; reduce the starting stocks of food 
and oxygen, and increase the number of people and the amounts of 
food and oxygen they need. 

« Dothe same by cutting the return from sculptures and 
increasing the amount of oxygen these consume during 
manufacture. 

» Add even more factors which you must control, such as viruses 
and plagues, radiation poisoning, being hit by stray meteorites, 
dialogue with other domes to (a) stop them attacking you; or (b) 
uniting with you to attack other domes to steal food and oxygen. 

» Limit the number of sculptures which each person can make 
each year. This will really make the dome hard to control and is not 
a modification I would suggest you make until you are familiar 
with the program in its present form. 

« As it stands, the program accepts negative numbers and alpha 
characters as inputs — so modify the program to avoid this. 

¢ Cuts off the sound after a couple of seconds. 

¢« Does the game exit ‘gracefully’? If not, modify it to do so. 


The Listing 


10 REM ** DOME DWELLER ** 
2OPROCinitialise 
SO@REPEAT 
35 *FX15,2 
40PROCyear_pop_update 
S@PROCcomputer_report 
60PROCtrading 
7@PROCcomputer_report 
BePROCfood 
97ePROCcomputer_report 
196PROCoxygen 
11@IF RND(S)=2 PROCattack 
1290UNTIL FALSE 
I3S@DEF PROCinitialise 
140 CLS 
1S0YEAR=0 
160AS="The lunar dome is dead" 
170FOLK=80+RND (4@) 
1B8OCASH=INT (7* (7004+RND (2600) /RND (3) >) 
1990F 00D=766+RND (500) 
290F DODCOST=RND (7) 
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219FO00DNEED=1+RND (3) 
226ARTCOST=1+RND (5) 
2S50ARTPAY=30#RND (ARTCOST> 
2400X Y¥=3@00-RND (2600) 
2500X YNEED=2+RND (4) 
2600XYCOST=2+RND (7) 
27@REPAIR=266+RND (460) 
ZBEENDPROC 
29@DEF PROCyear_pop_update 
SOOVYEAR=VEARt+1 
S31 QFOLK=FOLK+INT (FOLK/ (12+RND‘(8)) > 
3290ENDPROC 
S30DEF PROGCcomputer_report 
S40PRINT’ CHR# (128+RND(5))35 "Computer report 
to Dome Master:"’ 
S5S@IF OXY<OXYNEED*FOLK PROCoxydeath 
36@IF FOOD<FOODNEED*FOLK PREOCFfooddeath 
S7@O@IF CASH<S5@ PROCcashdeath 
SBOIF FOLK<2 PROCFfoalkdeath 
S9@IF FOLK<13 PRINTCHRS (129)5 “WARNING!"?" 
Population is nearing extinction” 
4Q00IF OXY<2*OXYNEED*#FOLK PRINT CHRS(130)35" 
WARNING! "?CHRS(129)5 "Oxygen supplies are iow" 
41@0IF FOOD<2*FO0DNEED*FOLK PRINT CHRS(131)5" 
WARNING! "* "Food stocks depleted" 
42@0IF CASH<2000 PRINT CHR#(129)5 "WARNING! "?* 
Cash reserves dangerously low" 
430PRINT’ *CHR$(131)5 "There are *5FOLKs;" 
people living" 
44OPRINFCHRS (131) 5 "within your dome in year " 
3 YEAR?” 
45@PRINTCHRS(130)5 "Money credit is $"53CASH 
46OPRINT CHRS$(130)5 "Annual maintenance 
charge is $";REPAIR’ 
47@PRINT CHR#(133)5 “Oxygen tanks hold “s0xXY;" 
units" 
ASGPRINT CHR#(133)5 "Oxygen costs #";0XYCOST;" 
per unit" 
49O@PRINT CHR$(133)3 "Each dome dweller needs " 
sOXYNEEDS" units a year"’” 
SO@PRINTCHRS (13435 "Food stocks stand at "5 
FOOD 
51@PROCdrawline 
S2@ENDPROC 
S3@DEF PROCdrawline 
S4@PRINT CHRS$(129)5" 


SSOTS=T IME 


S40SO0UND1, -—7,RND (254) , 5: SOUND, —7,RND(254) ,5 
S7OREPEAT UNTIL TINE-T=480 


SBOSOUND1, —7,RND (254) , 5: SOUNDi, —7, RND (254) ,5 


J9@ENDPROC 
6OSDEF PROCtrading 
61@PRINT CHRS(132)5 "You can trade your 


unique lunar”’CHR#(132)5" sculptures with the 
people"’ CHR$(132)5" who live in ether domes"’ 
S2@PRINT CHRS(129);5" You use up "SARTCDST; 


“units of oxygen"’ CHR$(129)3 "making each one, 
and seil them for $"3;ARTPAY’ 

S3G6PRINT CHRS(134)5 "How many pieces of 
sculpture will you"’ CHRS(134)5”" create 
this year?" 

540 INPLUTB 

S6S50IFB*ARTCOSTOOXY PRINT CHRS(129)5 "There is 
not enough oxygen to "*CHRS(129)35 "make that 
many": GOTOS4@ 

&6450CASH=CASH+B*#ARTPAY 

&7OC0XY=0X Y-B*ARTCOST 

680PROCdrawline 

69@ENDPROC 

7OODEF PROCFfood 

71IOSPRINT CHR$(132)5 "Food costs $”;FOODCOST;"” 
per unit” 

72@PRINT CHR#(132)5 "Each dweller needs "$5 
FOODNEED$;" units a year.™’ 

7S@PRIN?T CHRS(129)5" ($"5; FOODCOST*FOODNEED; " 
each, “5 FOLK*#FOODCOST*FOODNEED;" for dome. 
This will" 

74OPRINT CHR#(129)5"last “ZS INT(FOOD/ ¢ 
FOODNEED*FOLK))$5" years at present population.) 

7S@PRINT CHRS$(130)5 “How many food units will 
you buy?" 

7F6@INPUT C 

77O51F C*FOODCOST*>CASH PRINT CHR#(129)5 "You 
do not have encugh money":G0TO7ée0 

780FODRD=F00D+C*FOGDCOST 

79@CASH=CASH-C*FOODCOST 

BOOCPROCdr awiine 

81 @ENDPROC 

B2ODEF PROCoxygen 

BSO@PRINT CHRS#(133)5 "How much oxygen will you 
buy?"” 

B46PRINT CHRS(129)5 "(Current stocks will 
last "3S INT (COXY/ (COXYNEED*XFOLK) 35° years" 
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BS5@PRINT CHR#(129)3; "at the present 
population of "3;FOLKs")" 

B60INPUTD 

B7OIF D*OXYCOST>CASH PRINTCHRS (129)5 "There 
is not encugh money! ":GOTO869 

88@F 0OD=FO0D-FOLK*FOODNEED 

BIO@CASH=CASH—-REPAIR-D*OXYCOST 

9@00X ¥Y=OXY+D—-FOLK*OXYNEED 

91 9OPROCdCr awline 

92OENDPROC 

FSQODEF PROCattack 

F40FORIJ=1TORND(25)4+15 STEP RND(S3) 

95OSO0UND1 , -15, RND (100) +30, 1:SOUND1,—15, 250, 1 


F6ONEXT 
97ORESTORE1010 
BOF ORJ=1 TORND (4) 
SSGREAD NASTY 


1@@ONEXT 
1Q@1@DATA"A Fleet of Sirian ships", "renegade 
dwellers from a nearby dcGome","Martian sub-— 


fighters", "“Vyrilliex outworlders”,”"a ione ship, 
under robot control”,”"a Parralexian escort 
vessel" 

1920 PRINT CHR#(133)5"The dome is under 
attack by“ 

1@6ZS@PRINT CHRS (132) ;NASTYS’ 

1040FO0RJ=1TO100 STEP RND(7) 
1@50SOUND1,—-15, 200-2#J, 1: SOUND1,—15, J*2,1 
1QO6ONEXT 

1@70 FOLKDEAD=INT (FOLK/ (RND(35)4+1)) +1 
LOBODAMAGE=INT (RND(CASH/9) } 

1@90IF CASH-DAMAGE<1 DAMAGE =o 
116O0FOCDDEAD=INT (RND(FOOD/2) > 

111900X YDEAD=INT (RND(OXY/2)) 

1120PRINT CHR#$¢61335)5"There were “5;FOLKDEAD; " 
people kilied"’” 

1130FOLK=FOLK-FOLKDEAD 

114@PROCdrawline 

3150 ITF DAMAGE>S PRINT CHRS(129)3;"Damage to 
the dome totais $"5; DANAGE” 
116@CASH=CASH-DAMAGE 

1179PROCdr awline 

LIB@PRINT CHR (133) 5FOGDDEAD$S" units of food 
have Been ruined" 

11906FO00DD=FO0D-FDOODDEAD 

12@@PRINT CHRS(133)5 "and “SOXYDEADS”" units of 
oxygen leaked away”’ CHR#(133)3;"“before the dome 
could be repaired” 
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1210PROCdrawline 

I2Z2OREPAIR=REPAIR+RND (30) 

1230FOQRJ=1TG1ee STEP RND(7) 

I24OSGUND1, —15, 200-2%3, 12: SOUND1,—-15, J#2, 1 

1256NEXT 

12460ENDPROC 

1270DEF PROCoxydeath 

12896REPEAT 

1296PROCwarningbell 

130@PRINT *CHRS (133) 5AS 

1IS1O6PRINT *’CHR#$(129)35 "You ran out of oxygen 
in year "5; YEAR 

1320UNTIL FALSE 

1338ENDPROC 

134@DEF PROCfooddeath 

135@REPEAT 

1340@PROCwarningbell 

IS7OPRINT’? CHRS(129)5AS 

1SBOPRINT?’ CHR (132)5 "You ran out of food in 
year "; YEAR 

139@PRINT CHRS(129)3"Now, "SFOLK5"” people 
will starve"’ CHR$(129)5" to death!" 

1490UNTIL FALSE 

1419ENDPROC 

1420DEF PROCcashdeath 

1436REPEAT 

1440PROCwarningbell 

1450PRINT CHR (131) FAS 

1446@PRINT’ CHRS (134)5 "The treasury ran dry in 
year "; YEAR 

147@PRINT CHRS(131)5“so the "sFOLK;" people 
who relied on you” 

1486PRINT CHRE(131)5 "will"; CHRS (12935 "die!" 

149@UNTIL FALSE 

150@ENDPROC 

1510DEF PROCfolkdeath 

Lt S2OREPEAT 

1530PROCwarningbell 

154@PRINT"“You are the only one left alive” 

1550PROCwarningbell 

1560PRINTCHR#(130)5"on your dome —- You have 
betrayed your" 

157@PROCwarningbell 

158@PRINT CHR#(129)5 "Oath of Of fice...1 hope 
you feei" 

1590PROCwarningbell 


" 
1461@UNTIL FALSE 
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1626ENDPROC 

163@DEF PROCwarningbell 

1640FORJ=i1TOS¢8 

1656SOUND RND(4)—-1,—-15, RND(1@) +240, RND(5) 
166ONEXT 

167@SOUND1,1,1,1 

1689ENDPROC 
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The Game 


This program imitates a sliding plastic tile puzzle. A grid is printed 
on the screen with letters of the alphabet filling every space except 
one. This space can be moved around the grid with the cursor 
control keys. As the space is moved, the letters in the grid move 
around to accommodate it. Therefore, it is possible for you to 
eventually get the letters in alphabetical order. 

A continuous readout of the number of moves made so far is 
shown. This adds a competitive element to the game. When the 
letters are in order, pressing ESCAPE will return you to the first 
prompt. This asks for the dimensions of the ‘square’ (it can be a 
rectangle). The dimensions are entered in the form of two numbers 
that are separated by a comma. 

The game is quite difficult until you work out a system. 


The Program 


The main section is from lines 10 to 140. 

10 This sets up an error handler, so that ‘Escape’ will return the 
user to the start of the game. 

20 This line waits half a second for a key to be pressed, and ifa key 
was pressed within this time limit, ends the game. This is so that 
you can end the game without pressing BREAK. To end the game 
press ‘Escape’ and then press any other key as quickly as possible. 
40 This line clears all variables, since otherwise the DIM statement 
in line 50 could be executed twice, which would lead to an error. 

50 Dimensions a string array which will hold the state of the grid. 
60 Calls the procedure which sets up starting conditions for the 
game, and asks you for the dimensions of the grid. 

70 Calls the procedure which prints out the prid in colour. 

80 Starts the main loop of the game. 

90-110 Prints the number of moves made so far. 

120-130 Accept a single keypress from you and then call PROCact, 
which interprets the key pressed and acts on it if necessary. 

140 Finishes the main game loop. Notice that this is an infinite 
loop, so the only way out of it is to press ‘Escape’. 
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The section from line 150 to line 350 makes up PROCset_up. It is 
called in line 60. 

170 Initialises the variable MOV, which contains the number of 
moves made so far. 

180 Sets up a REPEAT loop, which will be executed until a valid 
response to the dimensions question ts registered. 

190 Prints the prompt for the question, followed by a row of spaces. 
The spaces are to erase any previous dimensions that you input 
which were unacceptable. 

200 Moves the cursor to the space after the prompt, and accepts the 
two dimensions. 

210 Finishes the input loop when the dimensions that have been 
input are valid. 

220 Clears the screen. 

230 Turns off the cursor. 

240 Sets up a REPEAT loop which will fill the grid with letters. It 
does this by repetitively generating random co-ordinates inside the 
grid, until the co-ordinates of an empty array element are 
generated. It then fills that square with the next letter in sequence. 
The last part of line 280 ensures that the bottom right element is 
not chosen, since that element will contain the space at the start of 
the game. 

a, Places a space character in the bottom right hand corner of the 
grid. 

320 Switches the cursor contro] keys to the mode where they 
generate actual values rather than just shift the cursor around. 
330 Together with line 340, this sets variables L and M to the co- 
ordinates of the space in the grid. 

350 Returns control to jine 70. 


360-390 These make up PROCend, which is called at the end of the 
program to restore the cursor keys to their normal functions and to 
turn the cursor back on. 


400-500 These make up PROCprint_whole, which prints out the 
whole grid, using a simple loop arrangement. The grid itself 
comprises underscore characters, which appear as elongated minus 
signs in Made 7. 


510-650 These make up the last procedure — PROCact. 

530 Generates a string which contains all the valid characters. 
These are the codes generated by the four cursor control keys. 
540 Checks to see if the key pressed was one of these keys, and if 
not returns control to line 140, without doing anything. 

550 Extracts the ASCII code of the key pressed. 

560-590 Check to see if you are trying to move off the grid, and if 
so, return contro! to line 140. 

600 Increments the move counter, MOV, because we can now be 
certain that the key just pressed was valid. 
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610-640 Act on the key pressed, by moving the space around the 
screen. FNad generates the screen address of the cell whose co- 
ordinates are X, Y. 


660 Defines FNad, as used in the previous procedure. 


Suggestions for improvement 

e Ifyou have a model B, the game could be transferred to Mode 0, 
where a larger grid could be used. 

» Ifyou can work out an algorithm for solving these puzzles 
(which is not nearly as difficult as it sounds) you may like to write 
a section of code which solves the puzzle when you give ita 
starting condition. This could be extended to the point where the 
machine gives you hints on where your best move would be, ata 
penalty of, say, five points. 

¢ Allin all, Wordsquare gives scope for considerable modification 
on your part. 


The Listing 


16 ON ERROR GOTO 20 
20 IF INKEYS(50)<>"" THEN PROCend:END 
30 MODE 7 
4@ CLEAR 
50 DIM letter#(10,190) 
60 PROCset_up 
7® PROCprint_whole 
Be REPEAT 
90 FOR T=4 TO 5 
190 PRINT TAB(O, Y¥2+T) 5 CHRS (129) 5 CHRS (1268+13) 5 
"Moves made so far — ";MOV 
116 NEXT T 
120 AS=GETS 
130 PROCact (AS) 
140 UNTIL FALSE 
150 DEF PROCset_up 
160 LOCAL XC, YC,T 
170 MOV=0 
180 REPEAT 
4196 PRINT TAB(@,5)5CHRS$(132)5 "Enter size of sq 
uare...";CHRS$(131)5 STRINGS (S6," "> 
200 INPUT TAB(25,5) UZ, VZ3 X=UZAs Y=VZ 
210 UNTIL X>1 AND Y>1 AND X<8 AND Y<S AND (X*Y 
3<=27 AND INT(X)=X AND INT CY)=¥ 
220 CLS 
230 '&FEGO=%138200H 
240 FOR T=1 TO X*Y¥-1 
200 REPEAT 
269 XC=RND({X) 
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Y) 


270 YC=RND CY) 
280 UNTIL letter#(XC,YC)="" AND ¢XC<>xX OR YC<> 


296 letters(xC, YC) =CHRS (T+54) 

300 NEXT T 

310 letter$(x,yo=" “ 

320 *#FX 4,1 

336 L=X 

340 M=¥ 

350 ENDPROC 

366 DEF PROCend 

370 *FX 4,0 

3BO !&FEG@O=210720A 

399 ENDPROC 

400 DEF PROCprint_whole 

410 LOCAL XC,YC 

4206 PRINT CHRS (131) 5; STRINGS (X*2+1,"—-") 

430 FOR YC=1 TO Y 

4490 VDU 131,ASC¢("-") 

45@ FOR XC=1 TO xX 

466 PRINT letter#(xC,YC)$"—"5 

476 NEXT XC 

486 PRINT 7 CHR (131)5 STRINGS (X*2+1,"—") 

490 NEXT YC 

5¢6 ENDPROC 

510 DEF PROCact (AS) 

02@ LGCAL V%,A 

53@ V#—-CHR# (1346) +CHRS (137) +CHRS (138) +CHRS (139) 
540 IF INSTR(V$,A8%)=0 THEN ENDPROC 

55@ A=ASC (AS) 

56@ IF A=136 AND L=1 THEN ENDPROC 

970 IF A=137 AND L=X THEN ENDPROC 

D586 IF A=138 AND M=Y THEN ENDPROC 

590 IF A=139 AND M=1 THEN ENDPROC 

600 MOV=NOV+1 

6190 IF A=136 THEN ?7FNad (L,M)=?FNad {(L~1,M) =L=L— 
7FNad (LM) =32 

6260 IF A=137 THEN ?FNad (L,M) =?FNad (L+1.M)=:L=L+ 
?FNad (L,M)=32 

630 IF A=1i38 THEN ?FNad (L,M) =?FNad (L,M+1) 2M=M+ 
?FNad (L,M) =32 

640 IF A=139 THEN ?FNad(L,M>=?F Nad (L,M—1) =M=M— 
?FNad (L,M) =32 

65@ ENDPROC 

66@ DEF FNad ¢(X, Y) =HEIMEM+X*2+Yx8O-46 
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The Game 


In this game, you (the fearless yellow asterisk) must battle with a 
mighty prehistoric monster (the dreaded red @) on a Blue Land 
measuring 10 by 10. It is impossible to evade ‘Rex’ forever. 

You move yourself using the ‘Q’ (moves you up), ‘M’ (down), ‘A’ 
(left) and ‘L’ (right) keys. You’ll find your fingers soon learn to 
make the right movements automatically. Your score is clocked up 
on the screen all through the game, along with the ‘high score’ 
which is automatically updated, when needed, throughout the 
game. You get a tiny pause at the end before you and ‘Rex’ are 
placed at random positions on the Blue Land, to battle it out again. 


The Program 

10 Title. 

20 Sets HISCORE variable to zero. 

30 Start of the master REPEAT/UNTIL loop which terminates in 
line 180. 

50 Sends action to the initialisation procedure (PROCbegin). 

60-70 These direct the computer to the procedures which place you 
and ‘Rex’ in position. 

90-170 This REPEAT ... UNTIL loop directs the computer to the 
procedures which actually play the game. The loop repeats until the 
flag GOT is changed from zero to one. 


190-370 PROCbegin is the initialisation procedure. Line 200 clears 
the screen (the computer assumes you are in Mode 7, by the way), 
and 210 turns off the cursor. Line 220 prints out the instructions on 
which key to press for which result; the loops 230 to 270 draw out 
the Blue Land upon which the battle will be fought. The score for 
each game is set. to zero in line 280. Then the locations for ‘Rex’ (C 
and D) and the human (X and Y) are chosen at random. As the two 
of you move around the screen, your old positions must be 
overprinted with blue squares: Cl and D1 hold the ‘overprint 
position’ for ‘Rex’, while X1 and Yi the overprint position for you. 
390-420 Line 400 overprints your old position and 410 prints the 
new position. 

440-470 Line 450 overprints the old position of ‘Rex’, and 460 prints 
in the new position. 
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490-570 This procedure accepts your move. Lines 500 and 510 set 
X1 and Y1 equal to the current position, before the new position is 
determined. Line 520 reads the keyboard, and lines 530 to 560 move 
you in accordance with this reading, so long as the move will not 
take you outside the Blue Land. The ‘AND X greater than 1’ part of 
these four statements ensures that you will not stray. 


590-610 This procedure (PROCcheck_if_got) does a spot-check. If 
‘Rex’ and you are occupying the same square, you’ve been ‘got’. 


630-740 This procedure moves ‘Rex’ around. Lines 670, 690, 710 and 
730 check ‘Rex’’s position in relation to yours, and move him 
towards you. However, lines 660, 680, 700 and 720 randomly prevent 
‘Rex’ from checking one or more of the relationships. Without 
these lines (as you can easily see by deleting them), ‘Rex’ would 
swallow you without fail in a couple of seconds. Randomness 
introduces some stupidity into ‘Rex’’s movements, and gives you 
some chance to evade his crushing jaws for as long as possible. 


760-800 This procedure checks the score (SCORE) in the current 
pame and compares it with the highest score yet achieved 
(HISCORE), modifying HISCORE when necessary. 


820-870 This procedure, joyfully executed when you are finally 
nabbed, prints out the ‘Gotcha, human!! message in changing 
colours, and makes appropriate eating noises. The flag GOT is set to 
zero to terminate the REPEAT/UNTIL loop running from 90 to 180. 


950-970 This procedure (sound_and_fury) is called throughout the 
game (see line 130) to add interest. 


Suggestions for improvement 

» Add a routine to shoot ‘Rex’. 

« Decrease ‘Rex’’s stupidity (or increase it). 

e Add diagonal moves for yourself. 

« Add a routine to keep yourself moving in a designated direction 
unless a new key is pressed. 


The Listing 


1@ REM TYRANNO CHASE 
ZO@HISCORE=@ 

SO@REPEAT 

40 GOT=@e 

538 PROCbegin 

6@ PROCplace_human 
7® PROCplace_rex 

BO REMH KEK EHEHREE 
90 REPEAT 
L1e0PROCupdate score 
L1iO0PROCget_move 
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IZ2OPROCplace human 

136PROCsound_and_fury 

146PROCmove_rex 

15¢PROCp1 ace_rex 

160PROCcheck_if_got 

170 UNTIL GOTF=1 

180 UNTIL FALSE 

190 DEF PROCbegin 

200 CLS 

2196VDU235 82025 030;0 

220PRINT’”*CHR#(133)35;"Q - up, M —- down, A —- le 
#t, L — right” 

25@FORA=1TD1e 

240FORB=iTO10 

256 PRINT TAB(2* (A+4) ,B+4) 5 CHRS (132) 5 CHRS (25 
>> 

260 NEXTB 

270 NEXTA 

280 SCORE=9 

2990 C=RND(10) 

300 Ci=C 

310 D=RND (10) 

32@ D1=D 

330 X=RND(10) 

S40 X1=X 

350 Y=RND(1) 

360 Y1=Y 

370 ENDPROC 

380 REMAX HR EHH EE 

390 DEF PROCplace_human 

4Q0@PRINT TAB(2* (X1+4) ,Y¥14+4) 5s CHRS (132) 5CHRS (255 


410PRINT TAB(2% (X44), Y+4) 5; CHRS (1351) 5 %%" 
420ENDPROC 

430 REM 

440 DEF PROCplace_rex 

450 PRINT TAB(2*(C1+4) ,D+4) 5; CHRS (132) 5 CHRS (255 


460PRINT TAB(2*(C+4) , D+4) 5 CHRS (129) 5 "e” 
470 ENDPROC 

489 REM 

490 DEF PROCget_move 

5@@ X1=X 

516 Yi=¥ 

D2ZGAS=INKEYS (@) 

SSeIFAS="A" AND X>1 X=X-1 

540I1IFAS="L" AND X<10 X=X+1 

SS@IFAS="O" AND Y>1 Y=Y-1 
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DéGIFAS="M" AND ¥L16 Y=Y¥+1 
3/7@ENDPROC 

5B0 REM##**ee eee 

SIO@DEF FPROCchHeck_if_got 
S5600IFX=C AND Y=D PROCgotcha 
Si 6ENDPROC 

5620 REME## KERR HE 

63@DEF PROCmove_rex 

640D1=_D 

698 Ci=C 

566I1F RND(5)>3 THEN 740 
67OIF C<xX C=C+1 

6806 TF RND(S5)°>3 THEN 740 
690IF C>X C=C-1 

FOOIF RND(S)>3 THEN 740 

710 IF D<¥Y D=D+t1 

726 IF RND(S5)>3 THEN 7406 
730 IF D>Y D=D-1 

740 ENDPROC 

750 REMHeeKR KKK KEE 

746O0DEF PROCupdate_score 
77@IF HISCORE<SCORE HISCORE=SCORE 
7Be@SCORE=SCORE+1 

7F9IOPRINT TAB(S, 20) 5CHR#(134) "Score is "sSCOREs 


CHR#(130)3" High score is"; CHR (128+RND(35))5HIS 
CORE+i 


BeQ9ENDPRBC 

810 REM***% 44 HH KH 

B2ODEF PROCgotcha 

B3e0 FORcount=1T034 

840 SOUND?@, -15,RKND(10),3 

BSO@PRINT TAB(4,17) 5; CHRS(130)5 "Gotcha, human!!" 
B40 FORG=1TOS0:NEXTG 

8790 PRINT TAB(4, 17)3CHRS(i29);3 "Gotcha, human! ! 


B8eEPRINT TAB(S, 2@) 5;CHRS (134) "Score is "; SCORE; 


CHRS$(1360)5" High score is"$sCHRS(128+RND(35))5HIS 
CORE+1 


BIO@NEXTcount 

FOOXFX 15,90 

91 @SOUNDO,98,0,90 

920 GOT=1 

930 ENDPROC 

94@ REMK RRM KHMER EE 

9S@DEFPROCsound _and_ fury 

FS60SOUNDS, —15, RND (100) .1:SOUNDZ, —15, RND(128)+1 


27,2 


970 ENDPROC 
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The Game 


This program ‘translates’ a phrase in English to an equivalent 
‘Franglais’ one. Franglais is a curious mixture of French and 
English. It is promoted in magazines like Punch, where simple 
words are translated correctly into French but any complex words 
are left in English. 

This program attempts to translate English into Franglais 
automatically. All you do is type English in response to the prompts 
displayed. After a few seconds the translation will appear. When 
you are bored, enter a pre-designated keyword to indicate that 
you’ve finished. 

Input can be in upper or lower case, or both. All output is in 
upper case. We realise it’s a little contrived, but we think you'll 
agree that it’s fun. Do not include any punctuation marks in your 
input unless they are flanked by spaces. 


The Program 


40 Starts the main repeat loop of the program. This loop only 
finishes when the keyword is found in your input. 

50 Requests you to type your phrase for translation. 

60 Inputs your phrase. The INPUT LINE statement is used to 
ensure that commas will be read in as valid input. 

80 Calls PROCtranslate, which translates the phrase and prints it 
out. 

90 Carries on with the main loop until the keyword is found. Insert 
a word of your choice in the quotes. 

100 No comment. 

110 Ends the program, 


180 Starts the definition of FNlower_case_to_upper. This function 
changes all lower case letters in its argument to upper case. 

140 Sets all the LOCAL variables required. 

150 Sets the destination string C$ to be the null string. 

160 Starts a loop through all the characters of A$, the string to be 
converted. 

170 Picks out the B’th character. 

180 If it’s lower case, changes it to upper case. Refer to the table of 
ASCII codes in the User Guide. 
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190 Updates C$. 
200 Ends the loop. 
210 Returns with C$. 


230 Defines a ‘debugged’ INSTRfunction, to get around a ‘bug’ in 
Version 1 of the BASIC supplied. 

270 Starts the definition of FNchange single_word. This function 
translates the single word held in A$, or whatever string is used as 
the argument, to an equivalent Franglais string. 

290 Returns if A$ is not a proper word. 

300 Restores the DATA pointer to the beginning of the vocabulary 
DATA statements. 

310 Starts a REPEAT loop through all the words in the vocabulary. 
320 Reads the next English and French pair of words. 

330 Stops the loop when the end of DATA has been reached, or 
when a match is found. 

340 If the end of DATA was reached, exits with the calling 
string... 

350 or else, exits with the French string. 


370 Starts the definition of PROCtranslate. 

380 Sets the local variable required. 

390 Changes the string to be translated to upper case. 

400 Adds a space to the end of the string for translation. 

410 Starts a REPEAT loop through all the words in the string for 
translation, A$. 

420 Finds the first space in the string. 

430 Then calls the translate single word function, with all the 
characters to the left of the space. 

440 Strips off the bit that has just been translated... 

450 until A$ has all been translated. 

460 Prints a new line. 

470 Ends PROCtranslate 


Lines 490 onwards are a list of English words with their French 
equivalents, ended by two asterisks. Feel free to expand on this. 


The Listing 


1@ REM Franglais 
PQ REM HHH HHH EE EE EE EEE EEE BE 
FEE TE FEE TE FEE TEE FETE IESE HERE EEE EEE TE EEE HEE 


30 MODE 7 

40 REPEAT 

5® PRINT CHR#¢(132)3; "Enter the English sentenc 
e& to be "3CHRt(132)5 "7 translated’ to Fren 


ch Li 
60 INPUT LINE ENGS 
72 REM CAN INSERT QUTPUT TO PRINTER HERE 
68@ PROCtranslate (ENG) 


gt 


90 
100 
110 
12e@ 


UNTIL FNINSTRCENGS, "4 KEY WORD", @) 

PRINT "Merci..." 

END 

RRM EEE EH HHH EH EEK NH EKEREE 


HEE BEKELE HRA RERHEREEERRKERE 


130 
140 
150@ 
1408 
170 
180 
190 
200 


DEF FNlower_case_to_upper (AS) 
LOCAL T,BS,CS 

Cs= Lid 

FOR T=t FO LEN(AS) 

BS=MIDS (AS, T, 1? 

IF BS>="a" THEN BS=CHRS (ASC (BS) —32) 
Cs=C3+BS 

NEXT T 


210=-C 


220 


REM RH HH HERE HEE RHEE RH HHH EKR HEHE 


HKRKKEEHERKHR HEHEHE HEHEHE RRR RHEEH 


230 
240 


DEF FNINSTR(AS, BS,K) 
IF LEN¢(B#) SLENCAS) THEN=0 


Z5@=INSTR (AS, BS, K) 


269 


REM 2-56 HE HHH HHH EHR EERE EEE EH HHH 


HHH HH HH HH HEHEHE HHH HER EE 


270 
280 
270 
300 
3108 
320 
3350 
340 


350= 


369 


DEF FNchange_single_word (AS) 

LOCAL ENGS,FREt 

IF At=" " OR AS="" THEN="" 

RESTORE 

REPEAT 

READ ENGS, FRES 

UNTIL ENGS="*" OR AS=ENGS 

IF ENG$="#" THEN=AS 

FRES 

RREM 3636-36 36-36-36 96-9636 96-96 SE JE IESE SE EEE IE IEE ETE EEE HEE KH 


HHH HEHE EEE EEERERERREREER 


3578 
389 
390 


480 


DEF PROCtr anslate (AS) 

LOCAL P 

AS=FNlower_case_to_upper (A%) 

AS=AS+" 

REPEAT 

P=FNINSTR(AS," ",@) 

PRINT FNchange_single_word(LEFTS(AS,P—-1))5 


AS=MIDS (A$,P+1) 

UNTIL As="" 

PRINT 

ENDPROC 

REM HEHE EM HEHEHE REEL ERE KEREREEE 


HHKKHKHEHKEKRKEKREREHEKRERKERERERAER 


4990 


»POIS, 


DATA THE,LE,HE,LUI,HIS,LE, ROOM, CHAMBRE, PEA 
STEAK, ENTRECOTE 
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50@ DATA ME,MOI,1,JE,HERE, ICI,HAVE, AI, A, UNE,A, 
UN, MY, SON 

51@ DATA BIG, GRAND, MATCH, ALLUMETTE, SUPER, FANTA 
STIQUE, DEAD, MORT, DIE, MORT 

52@ DATA GIN, VIN, WHISKEY, VIN, WHISKY, VIN, MARTIN 
I, VIN, BEER, VIN, NEWCASTLE 

53@ DATA PARIS, CIGARETTES, GAULOISES 

54@ DATA HAIR, CHEVAUX, ARM, BRA, LEG, JAMBE, LEFT, D 
ROITE, RIGHT, GAUCHE 

55@ DATA TRENDY, AVANT—GUARDE, MEDICINE, VIN, POLI 
CE, GENDARME, DETECTIVE, CLUESO 

560 DATA DGOR, PORTE, PORT, DOOR, QUAY, CLEF, KEY, CL 
EF, HEAD, TETE, LOVE, AMOUR 

57@ DATA HOUSE, MAISON, CHAIR, CHAISE, EVE, ORIEL,S 
UN, SOLTEL 

58@ DATA SONG, CHANSON, MY, MOI, YOUR, VOTRE, DESK, P 
UPITRE 

59@ DATA FRIENDS, AMIS, WINDOW, FENETRE, BEHIND, DE 
RRIERE, SEA, MER, MOTHER, MERE 

6@6 DATA FATHER, PERE, CAR, VOITURE, APPLES, POMMES 
, ENGLISHMEN, POMS, POTATOES 

61@ DATA POMME DE TERRE, CAT, CHAT, DOG, CHIEN, BLU 
E, BLEU, LITTLE, PETITE, MUSIC 

62@ DATA MUSIQUE, PLEASE,SI’L VOUS PLAIT,BOY,GA 
RCON, GIRL, FILLE, CHIPS 

63@ DATA POMME FRITES, FISH, POISON, CHICKEN, POUL 
ET, DUCK, CANARD, MUSTARD, MOUTARDE 

64@ DATA HOT, CHAUD, COLD,FROID, EVERYBODY, TOUT i 
— MONDE, WORLD, MONDE 

650 DATA HELLO, BONJOUR, GOOD, BON, SWEETS, BON BON 
S 

46@ DATA *,* 
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The Game 


This program ‘gives’ you a bucket that you must use to try and stop 
a sudden deluge of rain from drowning you. The bucket appears as 
a white bar on the screen, and is moved left and right with the left 
and right cursor control keys. As the waterdrops fall, you must 
position yourself under each drop. The difficult part is that, as soon 
as you start moving, the drops speed up by a factor of about five. 
When a drop has either added to the puddle at the bottom of the 
screen, or has been caught by the bucket, the bucket moves back to 
the centre of the screen. 

When the drop reaches the bottom of the screen it adds to the 
multi-coloured puddle already there. When the puddle is deep 
enough to drown you, the game ends, with suitable special effects. 

The game is quite difficult to play but is more fun than the 
normal ‘breakout’ type game. 


The Program 


The game is divided into several sections. The main section its from 
line 20 to line 270. 

10 This line defines a key to restore the keyboard to its normal 
repeat rate and lets the editing keys work as normal. Press f0 after 
an ESCAPE to give you control over the machine again. To LIST the 
program now, go first into Mode 7. 

20 Sets the speed of the game. 

30 Makes sure the computer is in Mode 7. 

40 Makes a call to PROCSETUP, which colours the screen and sets 
up the bucket and other housekeeping jobs. 

50 Sets up the main REPEAT loop. This loop is the one which sends 
down the raindrops. 

60 Sets up the REPEAT loop which releases each raindrop. 

70 Moves the cursor to the position the raindrop used to occupy, 
and puts a ‘graphics control code’ in its place. 

80 Increments the y co-ordinate of the raindrop, before re-drawing 
it at line 90. 

100 Waits for a key press, for T% centiseconds. 

110 Clears the keyboard buffer, since any erroneous key presses 
will give the bat a delayed action. 
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120 Together with line 130, decides whether the last key pressed 
makes it necessary to call the bat-moving subroutines. 

140 This UNTIL statement stops the drop when it has reached 
another drop, or has hit the bucket, or has reached the bottom of 
the screen. 

150 Works out if the drop did in fact hit the top raindrop already in 
the puddle; if so, sets the flag K% to true; else, to false. 

160 Works out if the drop hit the bucket and, if so, blanks out the 
drop. 

170 This line puts a line of spaces where the bucket should be. 

186 Sets S%, the position of the bucket, to 14, which is about the 
centre of the line. 

190 Places the pail at the correct position on the screen. (A$ 
contains all the information required to print the bucket.) 

200 Chooses a new x co-ordinate for the next raindrop. 

210 Sets the y co-ordinate of the new raindrop to zero, the top of 
the screen, 

220 Allows the game to carry on until the game end flag, K% is set. 
230 With line 240, this resets the keyboard to normal repeating 
speed, and returns the cursor keys to their usual function. 

250 The call to PROCSHUDDER creates a grand finale. 

260 Together with line 270, wraps up the loose ends and then ends 
the program. 


The next main section is the procedure SETUP at lines 290 to 480. 
310 Defines a text window to be the entire screen, except the 
extreme left-hand column. 

320 Starts a FOR loop to place colour control codes down the entire 
left-hand column of the screen. Thus the previously defined 
window will stop the colour information from being scrolled. 

350 Sets up a FOR toop to fill the bottom seven lines of the screen 
with random colour control codes. 

380 Places the ‘white graphics’ control code in the extreme left- 
hand position of the 17th row of the screen. 

390-410 Initialise variables which contain the X and Y position of 
the raindrop and the displacement of the bucket from the left-hand 
side of the screen. 

420 Sets upa string A$ containing the characters which make up 
the bucket. These are a space, five lowercase p’s, and another space. 
A lower case ‘p’ looks like a single line when displayed on a 
graphics line of the screen. 

430 Allows the cursor control keys to generate specific codes, 
rather than move the editing cursor around the screen. 

440 Places the bucket in its initial position at the centre of the 
screen. 

450 Turns the cursor off. 

460 & 470 Make all keys repeat instantaneously, and very quickly. 
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The next two sections are the procedures called when the bucket is 
to be moved right or left. 


PROCLEFT comes first. 

510 Checks to see if the bucket is not already on the left hand side: 
and, if not, decrements $%, which is the bucket’s displacement 
from the left of the screen. 


520 Replaces the bucket on the screen. 
PROCRIGHT is similar. 


560 Checks to see if the bucket is not already too far to the right, 
and if not increments S%. 


570 Replaces the bucket on the screen. 


PROCSHUDDRER is a special] routine, used to shake the screen from 
right to left. VDU 23,0,13,X,0;0;0; puts the value X in the 6845's 
register 13. This register governs the position on the screen of the 
extreme left hand character. Thus it usually contains 0. /t is not 
recommended that inexperienced users mess around with the 6844’s 
internal registers. You are not going to damage your computer if 
you do, but it is easy to upset your television. 


Suggestions for improvement 


* The screen layout could be improved, to make the picture more 
interesting; for example, the bucket’s present shape is not 
particularly convincing. 

« Acontinuously updated score could add a bit more tension. This 
could also take the form of some sort of time limit, again 
continuously updated on the screen. 


The Listing 


1@ *KEY @ “*FX 12!M*eFX 43M" 
20 TXL=10 
3 MODE 7 
4@ PROCSETUP 
50 REPEAT 
6® REPEAT 
7® VDU 31,X%, Y%,RND(5) +144 
80 YL=Y4+1 
90 VDU 31,X%, Y%, 255 
1@0 L%=INKEY(T%) 
110 *FX 15,0 
120 IF L%Z=136 THEN PROCLEFT 
130 IF L%=137 THEN PROCRIGHT 
14@ UNTIL (Y%>23) OR (?(HIMEM+Y%*404X%441) =25 
5) OR (7 (HIMEMtY%*40+XZ%Z441) =112) 
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150 


TIF (7 (HIMEM+Y4*40@4X%%441)=255) AND Y“4=17 


THEN K%=-1 ELSE KZ%=0 


140 


IF (7? (HIMEMN+Y4*%404X%%441)=112) THEN VDU 31 


a kL, V4, 352 


178 
1890 
196 
200 
21e 
220 
230 
240 
2590 
269 
270 
2BO 


PRINT TAB(®,17)5 STRINGS (38," ") 
S“Z=14 

PRINT TAB(S%,17)3A% 

XA=RND (37) 

YA=e 

UNTIL KZ 

#FX 12 

FX 4 

PROCSHUDDER 

MODE 7 

END 

REM EEE HEH HEHEHE EEK HERE K ERE KER 


KEKE HEHE EREKEREHEKRHEEEREERHEHRERE 


290 
300 
310 
320 
330 
340 
350 
360 
379 
3SBe 
390 
400 
410 
420 
430 
440 
450 
440 
470 
480 
490 


DEF PROCSETUP 
LOCAL cz 

VDU 28, 1,24,39,2 

FOR CZ=6 TO 40*%16 STEP 40 

? (CZ+HIMEM) =20 

NEXT C% 

FOR AZ=40*18 TO 40*24439 

? (HIMEM+A%) =RND (5) +44 

NEXT AZ 

? (HIMEM+17*40) =1647 

X%=10 

Y“=0 

Sx%=14 

AS=" "+STRINGS(5,CHR$(112))4+" " 
*FX 4,1 

PRINT TAB(SZ,17);AS 
'&®FEQO=&1O200A 

*¥FX 11,1 

*xFX 12,1 

ENDPROC 

REM 9-3 4 HH HE BBE KHER HREAKERERHRHRRREREEE 


EREKEHK EKER RE BREAEREHEH HEM HEME 


260 
210 
220 
530 
340 


DEF PROCLEFT 

IF S4>6 THEN S“=S%-1 

PRINT TAB(S4,17)35AS 

ENDPROC 

REM RK HHH HEHEHE EEE EE EE LEER 


KEEKEREEEEEEREEKCEHKRHEEREEHERREHRRKE 


956 
560 
a79 


DEF PROCRIGHT 
IF S4%<32 THEN S4=S24+1 
PRINT TAB(S%,17)5A% 
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ne 
59@ 


ENDPROC 
REM =H EH NK ERK REE EEE 


EREEERKREERRHE HHH LEREREREKERKHERHEERE 


600 
6190 
420 
430 
546 
650 
4660 
57@ 
480 
690 
7@OO 
710 


DEF PROCSHUDDER 
LOCAL A,B,C 

FOR C=1 TO 20 

FOR A=@ TO 39 

VDL 23,0, 13, A, 239323 
NEXT A 

FOR B=39 TO @ STEP -i 
VDU 23, @,13,B, 0; 0303 
NEXT B 

NEXT C 

ENDPROC 

REM HER KRRKHRHREKEHRHRHREK EH RARE HRKERREKRRKHRREE 


HEE KHER KKKKKKRERHKRKHHREKREBRKRAREHRREE 
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Models A and B 


Reversi 


The Game 


At the start of this game a multi-coloured board is displayed. The 
letters ‘H’ and ‘C’ are used for the ‘human piece’ and the ‘computer 
piece’ respectively. The board is set up with the first four pieces on 
it. You always move first, so you think of which square you wish to 
move to and then enter the co-ordinates of that square, with the 
displacement down the screen, first. The co-ordinates are entered 
as a single two-digit number, 

After you have pressed ‘Return’, the computer starts to consider 
its move. This takes some time, so the program has been set up so 
that you can see the computer’s ‘mental processes’. As it looks at 
each of the squares in turn, that square flashes. If going to that 
square is the best move it has found so far the square turns into a 
purple block. If later on a better move is found, the purple block is 
removed and placed elsewhere. 

When the computer has examined all the possible moves, it 
decides on a final move. Then the score board is updated as it makes 
the move. If you cannot move, just enter ‘99’ instead. If in two 
moves running neither player can move, the game ends. 

Unless you enjoy cheating, do not look at the description 
section until you've played a few games — once you know the 
algorithm used, the computer is at a distinct disadvantage. 


The Program 

10 Puts the computer in Made 7. 

20 Calls PROCBOARD. This procedure prints out the board and 
sets up some variables needed in the rest of the program. 

30 Starts a loop to get a valid move from you. 

40 Calls PROCSCORE, which prints out the current scores. 

70 Inputs the actual move. The CLS will not wipe out the board, 
because a text window was defined in PROCBOARD to occupy two 
lines just below the board. 

80 This UNTIL statement tests the move entered, in a number of 
ways. First, the move entered is checked to make sure that it isa 
positive whole number, then the function FNPIECE(%) is used to 
check what character is at the location where you want to move. 
The character should be a full stop. FNPIECE is used again later 
on. FNNUM(A$,B$,X) is used to check the number of pieces that 
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you (A$) could make by moving to X. A$ and B$ must be H or C, 
This has to be greater than zero, 

Alternatively, the game is allowed to continue if you entered 99 
as the move, to indicate that you cannot move. The computer 
doesn’t bother to check to see if you could move (it would take far 
too long); so, when you are in a tight spot, you could cheat and say 
you cannot move. 

90 If you could not move, this line jumps over the section 
concerned with making your move and updating the scores. 

100 The variable HUM is your score, and this is updated by using 
the previously described function, FNNUM(A$,B3,X). 

110 Similarly, the variable COM, the computer’s score, is updated. 
120 A dummy variable is then used to call FNTURN(A3,B$,X). This 
is almost identical to FNNUM, except that as well as counting the 
number of pieces that you could take, it turns them over, 

130 Calls PROCSCORE, to print out the newly updated scores. 
140 Tells you to press ‘Return’ when you are ready for the 
computer to start making its move. 

150 Uses a dummy variable to GET a key press. 

160 Clears the screen window. 

170 Prints out the scores again. 

180 Initialises the variables H and M. H holds the number of the 
square with the highest ‘score’ found so far. This score is a measure 
of how good a move it would be for the computer to move there, M 
holds the square which had this highest ‘score’. 

190 This iine sets up a loop through all the possible squares on the 
board, plus a few more such as 79 and 40. These ‘extra’ squares are 
weeded out in the next line. 

200 This line jumps over the computer’s move section if that square 
is not occupied by a full stop; that is, it is not vacant. 

210 Gets the character at the square. 

220 Replaces it with a space, to make it appear to flash. 

230 The ‘score’ of a square is made up of the number that can be 
turned over at a particular square, multiplied by the value of 
FNVALUE for that square. FNVALUE gives a weighting to each 
square; so that, for example, the corners will be moved to in 
preference to the sides or anywhere else. This number is calculated 
for the square being considered. If it is bigger than the current 
highest score, it changes X$ to a block, to allow the purple block to 
appear; puts a full stop at the last best position; calculates a new 
value for H; and copies C to M, to make the best move so far be the 
current square. 

240 The character in X$ is placed at the square just considered. 
This will normally be a full stop, unless X$ was changed to a block 
in line 220. 

250 Ends the loop through all the squares. 

260 If H is still zero, no move was possible. If that happened, and 
you couldn’t move, ends the game. 
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270 Updates your score, as previously described. 

280 Similarly with the computer's score. 

290 Now computer’s move can be made, using FNTURN. 

300 The program loops back, to get another move from you. 

310 Just for completeness, an END statement has been included. 


320 Starts the definition of PROCBOARD. 

3320 Asa MODE 7 statement was executed just before this 
procedure is called, the cursor is on the top line of the display. This 
PRINT statement moves it down a line. 

340 This line prints the top of the board. It consists of the code for 
purple alphanumerics, the code for a block, the code for blue 
alphanumerics, the numbers from 1 to 8, the code for purple 
alphanumerics, and the code for a block. 

350 Starts a loop to print out the middle section of the board. 

360 Prints the middle section of the board. It consists of the code 
for blue alphanumerics, the loop counter, and eight lots of the code 
for red alphanumeries followed by a full stop. At the end of the line, 
the loop counter is printed out in blue. 

370 Ends the loop. 

380 Is the same as line 340, to print out the bottom line of the 
board. 

390 Sets your score to two (for the two pieces at the start of each 
game). 

400 Sets the computer's score to two. 

410 Puts your piece at the correct place for the starting set up. 

420 Puts another of your pieces down. 

430 Places one of the computer’s two starting pieces on the board. 
440 Puts the last of the computer’s pieces on the board. 

450 Dimensions DIR(¢ ). This array holds the displacements from a 
particular square to each of its eight neighbours. 

460 Fills up part of DIR(). 

470 Fills up part of DIRC). 

480 Fills up part of DIR( ). These three lines are arranged in such a 
way that you can see which displacement belongs to which 
direction. 

490 Sets up the previously described text window. 

500 Ends PROCBOARD. 


510 Starts the definition of PROCPIECE. This procedure places the 
piece A$ at position X. 

520 Sets variable A to be LOCAL. 

530 Calculates the screen address corresponding to the position X. 
540 Puts the character in A$ at the position. 

550 If the character was an H, then makes it a green H, placing the 
alphanumeric green code in the location before the H. 

560 If the character was C, then makes it a light blue C. 

570 If the character was a full stop, then makes it a red full stop. 
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580 If the character was a block, then makes it a purple block. 
590 Ends PROCPIECE. 


600 Starts the definition of PROCSCORE. 
610 Prints the current scores. 
620 Ends PROCSCORE. 


630 Starts the definition of FNPIECE(X). This reads the character 
ata particular location on the board. 

640 Sets A to be a LOCAL variable. 

650 Calculates the address of location X. 

660 If the character at that address was an H then exits the 
function with H. 

670 If the character at that address was a C, then exits with C. 
680 If it was a full stop, then exits with a full stop. 

690 If the character was a block, exits with a full stop. 

700 As the character was something odd, exits with a pound sign. 


710 Starts the definition of FNTURN(A$,B$,X). This function 
turns over pieces starting at location X, for player A$. 

720 Sets all the variables used in this function to be LOCAL. 

730 Q will hold the number of pieces turned over. 

740 Starts a loop to look in each of the eight possible directions 
from a particular square. 

750 Sets the current square to be the starting square. 

760 Repeatedly moves in the direction T, until it finds a square 
which is not occupied by you. 

770 If only one square was moved before a square not occupied by 
the opponent was found, or the piece at the end of the trail is not 
one of your pieces, jumps past the turning-over routine. 

780 Starts a loop which encompasses all the locations moved to, 
790 Makes each location inte one of your pieces. 

800 Ends the loop. 

810 Increments Q, as some captures were made. 

820 Ends the loop for al] the different directions. 

830 Ends the function with Q. 


840 Starts the definition of FNNUM(A$,B$,X). 

850 Sets all the variables used in the function to be LOCAL. 

860 As above. 

870 The algorithm used is the same as the one in FNTURN, except 
that no pieces are turned over, and Q is properly maintained. 

960 Ends the function with Q. 


970 Starts the definition of FNVALUE(X). This routine gives the 
weighting for the square X. 

980 A and B will hold the two separate digits of the square X. 

990 A and B are calculated, using MOD and DIV. 

1000 If any of the corners are X, gives a multiplication factor of 10, 
and exits. 
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1010 If X is anywhere else, except one away from any of the sides, 
gives a multiplication factor of 4. 

1020 As X is one away from the side, which means that you will 
probably get the side, gives a multiplication factor of 1. 


Suggestion for improvement 

One way this game could be improved is by altering the way 
FNVALUE operates, to give more exact biases towards specific 
squares. For example, if you wanted to give the square 67 a bias of 
100, you would add a line such as: 1055 IF B = G AND A = 7 THEN 
= 100. 


The Listing 


1@ MODE 7 

2@ PROCBOARD 

3@ REPEAT 

4@ PROCSCORE 

9@ SOUND 1,-15,1900,3 

60 VYDU 13 

7@ INPUT "Enter your move "move:CLS 

8@ UNTIL (ABSCINT (move) )=move AND FNPIECE ( 
move) ="." AND FNNUM(C"H", "CC", move) >@) GR move=99 

9@ IF move=99 THEN GOTO i30@ 

166 HUM=HUM+FNNUM CCH", °C“. move) +1 

110 COM=COM-FNNUM CH“, "C“, move) 

120 DUMMY=FNTURN C"K”,"C", move) 

13@ PROCSCORE 

1406 PRINT CHRS(129)5 "Press"sCHRS(130)5 "* 
return’ "SCHRS(129)3 "for my moves 

150 DUMMYS=GETS 

16° CLS 

170 PROCSCORE 

1806 H=0:M=-1 

190 FOR C=11 TO 88 

200 IF FNPIECE(C)<>"." THEN GOTO 250 

2190 X$=FNPIECE (C) 

220 PROCPIECE(” ",C) 

230 IF (FNVALUE (C) #FNNUMC"C“,"H",0)) >H THEN 
X$=CHRS (255) =: PROCPIECE (".",M) sH=FNVALUE (C) * 
FNNUMC"C","H",C)>)sM=c 

240 PROCPIECE (x$,C) 

250 NEXT C 

2460 IF H=@ AND move=99 THEN PRINT “END OF 
GAME "s:VDU 25:END 

27@ HUM=HUM-FANNUM C"C"™, "H",M) 

280 COM=COM+i+FNNUM(“C", "HH", mM) 

2990 DUMMY=FNTURNC"C", "H",M)> 

306 GOTO 38 
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360 


END 

DEF PROCBOARD 

PRINT 

PRINT CHRS (12845) s CHRS (255) 5 CHRS (128+4)5" 
45 6 7 $";CHR$(128+5) >; CHRS (255) 

FOR T=1 TO 6 

PRINT CHR? (128+4)5T5 STRINGS (8, CHR#(129)+" 


-") 53 CHRS (12644) 5 F 


Q@ 


— 


378 


510 


NEXT TF 

PRINT CHR? (126+5)> 3 CHRS (255) 5 CHRS (128+4);" 
43 6 7 8"3CHRS(128+5) 5 CHRS (255) 

HUM=2 

COM=2 

PROCPIECE ("H", 44) 


PROCP IECE €"H", 55) 

PROCPIECE (“C",54) 

PROCPIECE ("C"”, 45) 

DIM DIR(8) 
DIR¢1)=—-11:DIR(2)=—-16: DER (3) =-9 
DIR(4)=-1:DIR(5)=1 

DIR (4) =9: DIR(7)=10:DIR(B)=11 
VDU 26,90,14,39,13 

ENDPROC 

DEF PROCPIECE (AS, X) 

LOCAL A 

A=HIMEM+(X MOD 10) *2+41+¢X DIV 10)#40 
7A=ASC (CAB) 

IF AS="H" THEN 7 (A-1)=2 

IF AS="C" THEN 7(A-1)=6 


IF AS="_" THEN ?7(A-1)=1 

IF AS=CHRS$ (255) THEN ?¢(A-1)=5 
ENDPROC 

DEF PROCSCORE 


PRINT CHR (1284+3)3 "YOUR SCORE-"3 HUM; TAB(2 


3 CHRS (1284+3)5 "MY SCORE-";COM 


6206 
530 
640 
650 
660 
676 
560 
670 


ENDPROC 

DEF FNPIECE (xX) 

LOCAL A 

A=? CHIMEM+ (X MOD 10) *24+414+(X DIV 10)%*4@) 
IF A=ASC("H") THEN="H” 

IF A=ASC("C”)> THEN="C" 

IF a=AsSc(™. "> THEN="." 

IF A=255 JHEN="." 


700="8" 


FiO 
FZ2@ 
7F73O 
74@ 


DEF FNTURN(AS, BS, Xx) 
LOCAL T,S,6,@ 

Q=0 

FOR T=1 TO 8 
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750 S=X 
760 REPEAT S=S+DIR(T) sUNTIL FNPIECE(S)<>BSs 
77@ IF (S-xX)=DIR(T) OR FNPIECE(S)<>AS THEN 


GOTO 820 


780 FOR G=X TO S STEP DIR(T) 
79@ PROCPIECE (At, G) 

gee NEXT G 

810 Q=O+1 

820 NEXT T 

830-0 

840 DEF FNNUM(AS, BS, X) 

850 LOCAL T,S,@,K 

860 LOCAL 

870 =e 

98e FOR T=1 TO 8 

B90 S=X:K=~1 

900 REPEAT 

910 S=S+DIR(T) sK=K+1 

92@ UNTIL FNPIECE(S)<>BS 
930 IF FNPIECE(S)<>AS THEN K=@ 
940 Q=0+K 

95@ NEXT T 

960=0 

970 DEF FNVALUE(X) 

980 LOCAL A,B 

990 A=X MOD 16:B=X DIV 10 
1000 IF X=11 OR X=18 OR X=81 OR X=88 THEN=10 


1910 IF A<>7 AND A<>2 AND B<>2 AND B<>7 THEN=4 


1020=1 
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| 
| [| Models A and B 


aa Poet 


The Game 


In this game, you type RUN and then sit back to admire the 
brilliant ‘poems’ written by your BBC microcomputer. Once you’ve 
endured a few hundred stanzas using the words in the DATA 
statements we've provided, add your own words to create your own 
poems. 

The idea for this program came from an article called 
‘Producing Computer Poetry’ by Margaret Chisman (The Best of 
Creative Computing, Volume 2, edited by David Ahl, Creative 
Computing Press, Morristown, New Jersey, USA; pp. 106-107) in 
which Ms Chisman described how she ‘wrote’ computer poetry by 
first writing a verse which, although its content may have been 
nonsense, gave her (and the computer) a scanning pattern to work 
from. Ms Chisman said that she then broke down the original poem, 
analysed the kinds of words it used, and collected a number of 
similar words which the computer could then juggle to its heart’s 
content within the dictated framework. 

We decided to follow suit, and started with the following 
coruscating verse: 


Slowly I straightened in the sun 
Hardly a man was caring 
... had dared 
A tree wandered through the doorway 
... That botany should be confounded 
Thinking, palmtrees waved 
... Waiting, a tall tree shuddered 


With a beginning like that, how could we fail? We broke the 
original verse down into parts, working out which were bridging 
words, which nouns; and so on. Then, we wrote the raw framework 
of the program, leaving procedures ‘aword’ to ‘iword’ to be filled in 
by trial and error. The nouns (‘bword’, ‘dword’, and ‘fword’) were 
fairly easy to add, but some of the other sections (such as "gword’) 
proved difficult in practice. Although in this procedure we put 
words that should have worked, they did not seem to fit when the 
program was run. The selection you see in this listing is the final 
result of hours of trial and error. 
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The Program 


The program itself is fairly simple and should prove easy to modify. 
10 Title. 

20-30 Clear the screen and set the mode. 

40 Turns off the cursor. 

50 Starts the master REPEAT/UNTIL loop (terminated in line 
390). 

60 Puts four blank lines between verses. 

70-360 Go to specified procedures, adding link words (lines 150, 
270) from time to time, and starting new print lines (lines 120, 170, 
190, 240 and 290) at other times. 

370-380 Pause at the end of each verse before a new one is written. 
The rest of the program consists of procedures. Each contains a 
number of words in a DATA statement. The loop in each procedure, 
FOR J = 1TO RND(X), chooses a word from this DATA statement, 
prints it with a space after it, then returns to the program for the 
next instruction. 


Suggestions for improvement 


« Change the words within the DATA statements to create poems 
of the same general feel as ours, but using your own words. 

* Once you understand how the process works, write your own 
‘framework verse’, then create a program from scratch to build on 
your framework. 


Finally, here is a sample poem from this program: 


Savagely he frightened in the path 
little a child had frightened 

... had chastened 
shadows wandered to the joy 

... that the void might be stopped 
waiting she frightened 

... wanting a child cried 


Quietly I sighed before the darkness 
only the woman had wandered 

... had cried 
a crowd waited in the pain 

... that the path should be chastened 
turning they wandered 

... asking a lonely man sighed 


Sadly the woman. stopped before the night 
much a lonely man had waited 

... had waited 
I sighed before the agony 

... that the darkness ought to be whispered 
crying she waited 

... wanting the prophet wondered 
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The Listing 
10 REM #* POET ++ 
2@ CLS 
3@ MODE 4 
40 VDU2ZS; 8202565050 
3e@ REPEAT 
6@ PRINT 777? 
7@ PROCaword 
8° PROCbword 
90 PROCcword 
100 PROCiword 
110 PROCdword 
120 PRINT 
130 PROCeword 
140 PROCbword 
1506 PRINT "HAD “35 
14@ PROCcword 
170 PRINT 7" »«sHAD "5 
186 PROCcword 
19@ PRINT 
200 PROCbword 
2190 PROCcword 
2290 PROCiword 
230 PROCfword 
240 PRINT ’"...FTHAF THE "$ 
2590 PROCdword 
260 PROCgword 
27@ PRINT “BE "5 
280 PROCcword 
270 PRINT 
300 PROCKword 
310 PROCbword 
320 PROCcword 
330 PRINT ’” oan 5 
340 PROChword 
350 PROCbword 
3690 PROCcword 
3790 T=TIME 
380 REPEAT UNTIL TIME-T>95e 
390 UNTIL FALSE 
400 END 
410 REM 465-4 
420 DEF PROCaword 
430 RESTORE 48° 
446 FOR J=1 TO RND(190) 
450 READ AS% 
440 NEXT 
470 PRINT AS” “5 
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480 DATA “SADLY”, "HOPELESSLY", “WETHOUT CARE", ™ 
QUICKLY", "JOYFULLY", "OFTEN", "SAVAGELY", "CALMLY", 
"QUIETLY", “SILENTLY” 

4990 ENDPROC 

500 REM KX HKREREHHEE 

51° DEF PROCbword 

52@ RESTORE 570 

930 FOR J=1 TO RND(10) 

540 READ BS 

550 NEXT 

5690 PRINT BS" "5 

370 DATA "I", ”"HE”, "THEY*, “THE PROPHET", *°A LONE 
LY MAN", “SHADOWS", "A CHILD", "SHE", "A CROWD", "THE 

WOMAN” 

580° ENDPROC 

590 REM 4% 4% HR 

600 DEF PROCcword 

610 RESTORE 660 

620 FOR J=1 TO RND‘13) 

630 READ CS 

440 NEXT 

656 PRINT CH" "5 

66@ DATA “STOPPED”, “WONDERED”, "HOPED", "WAITED" 
> "WANDERED", "GIGHED", “WHISPERED”, "CRIED", "SCREAM 
ED", "ENDED", “ IGNORED", "CHASTENED", "FRIGHTENED" 

4670 ENDPRGC 

580 REM 444K EHH 

690 DEF PROCdword 

7@0 RESTORE 75¢ 

710 FOR J=1 TO RND(10) 

72@ READ Ds 

73Q NEXT 

740 PRINT DS” "5 

7538 DATA “WOODS”, "NORTH", "SUN", "PFATH", "SEA", "D 
ARKNESS", "NIGHT"’, "VOID", "DOORWAY", "CAVERN" 

760 ENDPROC 

F7O REM HEME KHEREHEH 

780 DEF PROCeword 

790 RESTORE 840 

Bee FOR J=1 TO RND‘{‘(5S) 

8106 READ ES 

820 NEXT 

830 PRINT ES" "5 

B40 DATA "ALL", "MUCH", "NOTHING", "LITTLE", "ONLY 


850° ENDPROC 

850 REM Kx ME RHRHH EE 
87@ DEF PROCfword 
880 RESTORE 930 
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B90 FOR J=1 TO RND(S) 
900 READ F 
910 NEXT 
920 PRINT FS" "3 
930 DATA “SORROW”, "AGONY", "PAIN", "ANGUISH", "JO 
vu 
940° ENDPROC 
FDO REM % X44 HK ERE 
9760 DEF PROCgqword 
970 RESTORE 10206 
980 FOR 3-1 TO RND(4) 
990 READ GS 
1000 NEXT 
1010 PRINT GS" "5 
1920 DATA "MAY", "MIGHT", "QUGHT TO", "SHOULD" 
1030 ENDPROC 
1040 REM 426% 644 HH 
1050 DEF PROChword 
19040 RESTORE1I11@0 
41070 FOR J=1 TO RND‘¢(190) 
1086 READ Hs 
1090 NEXT 
1166 PRINT HS” “5 
1110 DATA "SIGHING", “REACHING", “TURNING”, "HOPPIN 
6", “ASKING”, "NEEDING", "WAITING", "CRYING", "FAKING 
", “WANTING™ 
4120 ENDPROC 
1130 REM 4563636266 % 
1140 DEF PROCiword 
1150 RESTORE i200 
1160 FOR J=1 TO RND(4) 
1170 READ If 
1180 NEXT 
1190 PRINT I$" THE "5 
1200 DATA "TO", "IN", “PAST”, "BEFORE" 
1210 ENDPROE 
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The Game 


The computer generates a three-by-three ‘magic square’, which 
vertically, horizontally and diagonally adds up to the same number. 
Three of the numbers are shown as red hash signs when you first 
run the program, and you have to enter a series of guesses to work 
out the answer. At the end, the computer tells you how many 
guesses it took you to work out the three missing numbers. 


The Program 

10 Title. 

20 Sets mode. 

30 Sends computer to the initialisation procedure. 

50-80 The master REPEAT/UNTIL loop, which prints out the 
square after each move (PROCprintout) and accepts your guesses 
(PROCaccept-move). 

100-130 Prints the end of game message. 


150-450 This procedure assigns the values to each of the elements 
in the grid using the three random numbers generated by the 
REPEAT/UNTIL loop (200 to 240), Lines 340 to 370 check that none 
of the nine numbers in the square equals zero; and, if any one is 
zero, sends action back to the 200-240 REPEAT/UNTIL to try 
again. Lines 390 to 410 copy the elements of array A into array B, 
then lines 420 to 440 change three of the elements of array B to 
zero. These are the numbers that you must try to deduce. 


470-560 This procedure prints out the whole magic square, and 
checks to see how many numbers still have to be guessed. 

480 Adds one to the number of guesses made. 

490 Prints title. 

500-540 Prints out the numbers, or prints a pound sign if a number 
has not been guessed. 

550 Tells you the number of numbers still to be guessed. 


570-670 This procedure accepts the player’s guess, and checks 
whether it is correct. (ine 630). The next line counts the number of 
correct guesses. Line 660 overprints the last guess. 


Suggestions for improvement 


» Add sound to reward a correct guess, 

+ Let the number of values to be guessed change from game to 
game. 

« Change the maximum values for A, B and C to be greater than 
nine. Note that if you do this you will have to change the way the 
program decides which squares to turn into zeroes (see lines 420 to 
440). 

* Change colours to suit your idea of the best colour 
combinations. 

* Restore the flashing cursor when the game ends. 

« Change the layout of the square to make it look tidier. 

« Modify the program to accept number inputs only, with a 
corresponding message, and without increasing the count of the 
number of guesses. 

« Cut off the sound after a couple of seconds at the end of the 
game, offering an option to start again, or exiting ‘gracefully’. 


The Listing 


10 REM *Magic Square* 

2@ MODE? 

30 PROCinitialise 

AD REMKR KH 

30 REPEAT 

60 PROCprintout 

7@ PROCaccept_move 

80 UNTIL M=9 

GO REM 

19@® PROCprintout 

11@ PRINT ’’*CHR#(128+RND(5))5 "You have 

solved it. Well done?" 
120 PRINT 7”? CHR (128+RND(5))5” you "$J-15" 
guesses" 

i3¢ END 

146 REM # X45 HERR 

15@ DEF PROCinitialise 

160 DIM AC9), Bt?) 

170 W=-99 

18¢e6 M=4 

190 J=0 
260 REPEAT 
210 A=RND(C9) 
220 B=RND(C?) 
230 C=RND{(?) 
240 UNTIL AC>B AND A<>C AND B<>EC 
250 A(1)=A+B 
26@ A(2)=A-B-C 


270 
280 
290 
30e 
310 
320 
330 
340 
350 
360 
372 
380 
390 
400 
410 
420 
430 
440 
452 
460 
470 
480 


A(3) =AtC 
A(4)=A-B4+C 
A(S3) =A 
4(6)=A+B-C 
AC7)=A-C 
A(8)=A+B4C 
A(9)=A-B 

K=1 

FOR Z=1 TO 9 
IF A(Z)=0 K=a 
NEXT 

IF K=0@ THEN 200 
FOR Z=1TO? 


B(Z)=ACZ)- 
NEXT 
BCABS (A) ) =e 


B(ABS(B)>=0 
B(GBS(C)>=e 
ENDPROC 

REM 24H HH HH EH 
DEF PROCprintout 
J=J+1 


490 PRINT TAB(3, 3) 5 CHRS €128+RND (5))5 "Magic 
Square"”’ a 


38e@ 


910 IF B(Z)=0 PRINT CHRE(129)5"£ 
920 PRINT CHRS (1294+RND(4))5B¢Z7)5" 
930 IF Z=3 GR Z=4 PRINT: PRINT 


54¢e 
Due 
have 
040 
37@ 
089 
599 
enter 
500 
6190 
620 
630 
640 
65a 
660 


679 


FOR Z=1iTO? 


NEXT 


"s:GOTQ 530 


IF M<9 PRINT 7’ CHRS$ (128+RND(S))3 "You 


"S9-M3" to solve" 
ENDPROC 

DEF PROCaccept_move 
M=o 


PRINT TAB(1, 18) $s CHR (128+RND(5))5 "Please 


guess number "sJ 
INPUT W 

FOR Z=1TO9? 

IF W=-99 THEN 440 


IF A(Z)=W THEN B(Z)=W 
IF B¢€Z)<>@ THEN M=M+1 


NEXT 
PRINT TAB(2,18)3" 


ENDPROC 
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Models A and B 


The Game 


You are an intrepid explorer, working your way through Romland, 
a peculiar place surrounded on all sides by impassable walls and 
studded with a remarkable collection of landmarks —- ‘no entry’ 
sectors, magic tunnels, bottomless quagmires, RAM beasties and 
treasure (‘the fabled lost gold mines of Romland’). You must survive 
in this unusual place for 25 hours while collecting as much gold as 
you can. 

From time to time you will be shown a map of Romland from 
above. You can draw upal0 x 10 grid and place landmarks on it to 
form a map of Romland as you go along, so you can work out how to 
avoid the beasties and quagmires while homing in on the gold. 

You start each game in ‘sector 55’ and can move North, South, 
East or West at each move. If you try to walk through one of the 
walls surrounding Romland, or try to enter a ‘no entry sector’, the 
program will tell you that you cannot go that way, and you'll have 
to choose a new direction. 

After each move, assuming you haven’t wandered into a sector 
containing something, your Romland Scanner will swing into 
action, looking at the eight sectors immediately surrounding the 
one you are currently occupying. If it finds something there, you 
will be given a clue as to what is near you. However, if it finds more 
than one thing, it will only tell you about one of them, and will not 
tell you where — in relation to your present position — the thing is. 

The game explains itself as it progresses, and makes good use of 
the sound and colour available on the BBC microcomputer. 


The Program 

10 Title. 

20 Sets the mode. 

30 Turns off the cursor. 

40 Sends action to the initialisation procedure 
(PROCset_up_romlanda). 

50 Start of master REPEAT/UNTIL loop. 

60 To PROCstatus, which informs the player, after each move, 
what the Romland scanner has detected. 

70-80 Adds one to H, the variable storing the number of hours the 
player has survived within the walls of Romiand. 
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90 @ is a flag that dictates the section of the procedure 
PROCend_of_the world which is printed from time to time. 


120-410 This procedure creates the initial conditions within 
Romland (PROCset_up_rom_land), and initialises the variables (H 
is hours, @ is the flag mentioned before, G is the gold found); the 
array A holds each sector of Romland. The routine 150 to 210 puts 
up the walls (character 255) and spaces (character 46, the full stop). 
As the REM statement in line 230 points out, the next routine (220 
to 390) distributes the landmarks within the land, assigning a 
particular character code to a component of the Jand. 

Line 250 selects an element of the land at random and assigns it 
to a ‘no exit’ (character 255, a solid square). Line 260 chooses an 
element of the array at random and, in a check repeated in the rest 
of the loop for other landmarks, makes sure this new element has 
not already been assigned to a ‘no exit’. Thus the ‘no exits’ within 
the walls are not reassigned, and — far more importantly ~ the walls 
are not breached. The other landmarks are assigned in the rest of 
the routine: magic tunnels (character 63, a question mark); Rom 
beasts (character 66, the letter B); and quagmires (character 81, the 
letter Q). 

Note that apart from not overwriting ‘no exit’ elements, there is 
no mechanism to ensure that an element assigned to a landmark in 
one part of the loop is not reassigned in another. This ensures that 
the exact number of each landmark varies fram game to game. The 
Y loop, from 350 to the first part of 390, assigns approximately twice 
as many 'money sectors’ as any other landmark. The player begins 
in sector 55, and the number 45 is assigned to variable E, which 
keeps track of the player’s position within the land. 


The procedure PROCstatus (lines 480-780) is the heart of the game, 
being the only one which is called repeatedly (from line 60) within 
the master REPEAT/UNTIL loop. 

440 Places the H (for human) in the sector you are occupying. 
450-460 Generates a random value for Q and, if it is zero, sends 
action to PROCmap to give you a glimpse of Romland from above. 
490-510 Tells you where you are and how much gold you have 
found. 

520 Sends the program to PROCclues to check the squares 
surrounding the one you occupy. 

530 Tells you how many more hours you must last. 

540 Chooses a number at random {from 129 to 133) to determine the 
colour in which the next two lines will be printed. 

570-580 Accept a direction from the player (N, S, E or W) and first 
check (line 580) that the direction chosen is one of these. 

590 Clears the screen, and assigns zero to the variable U which 
will, if it becomes one, indicate a ‘no exit’. 

600-680 Check to see if you can move in the direction indicated, 
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and, if not, point this out in no uncertain manner, in double-height 
letters (using CHR$(141) for this purpose). 

700-730 Move you into the chosen sector. 

740-770 If the sector is not empty, send you to a procedure related 
to the contents of the sector. 


800-900 PROCtunnel. This is the ‘magic tunnel’ which will move 
you to a random place within Romland, but not into a ‘no exit’ or 
wall sector. 

920-1250 PROCbeast. This is one of the less frightening bad sectors 
you can stumble into, because you have a chance to escape. With a 
lot of sound and fury the computer lets you know you are ina 
beastie sector, but you need patience to discover your fate. The 
possible messsages are: 


Warning! ! You have come across a Rom beastie! 
Stand by! 

Luckily for you, this one is blind! 

Oh no! It has seen you, and decides to ignore you! 
Oh no! It has seen you, and... EATS YOU... 


As you can guess, any message except the one ending in ‘EATS 
YOU’ will allow you to continue the game. 


1260-1380 PROCquagmire. To the accompaniment of Hartnell’s 
‘Quartet for Sucking Noises and Despair’ you are warned of your 
imminent demise. 


1400-1620 PROCgold. This is a jolly procedure, in which — with the 
aid of a dazzling screen display — you gain between £101 and £150 
(ine 1540). Note that the ‘in the listing stands for a £ sign. 


1630-2040 PROCclues. This procedure checks the surrounding 
sectors and reports on what they contain, reporting only on one of 
the sectors, and not telling you which sector the report refers to. 


2050-2190 PROCend-of-the-world. This procedure is called only at 
the end of the game, your survival or extinction (held by the value 
assigned to Q) determining which part of the procedure is used. 


2200-2290 PROCmap. This is the cartographic procedure, printing 
out the view of Romland from the air. This procedure is called at 
random within a game (see lines 450 and 460) and at the ‘end of the 
world’, 


Suggestions for improvement 

« Add a ‘shoot at the beastie’ mechanism to give you a chance to 
survive if it sees you. 

« Add other things besides ‘gold’ which you can carry with you 
(such as a gun which you’ll need later for shooting at the beastie). 
* Adda little ‘quagmire goblin’ who will allow you to bribe your 
way out of the muck if you have enough gold. 
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* Change the way the map is presented during the game, so only a 
randomly selected part of the map is printed, with little indication 
as to where the section comes from. 

« Add extra landmarks which have unique effects. 

e Increase the size of Romland. 

* Cut off the sound after a couple of seconds at the end of the 
game, offering an option to start again, or exiting ‘gracefully’. 


The Listing 


1@ REM *ADVENTURE IN ROMLAND* 

2@ MODE7 

30 VDU 2358290250590; 0 

40 PROCset_ up rom_land 

50@ REPEAT 

6@ PROCstatus 

7@ H=H+1 

80 UNTIL H=25 

590 2=9 

106 PROCend_of_the_world 

i110 END 
126 DEFPROCset_up_ rom_land 
130 DIMA(1@O) 

140 H=1:08=-0:6=0 

150 FOR B=1T0100 

160 A(B)=46 
1790 IF B<22 OR B>90 THEN ACB) =255 
180 IF B=31 OR B=41 THEN ACB)=255 
i190 IF B=51 OR B=61 OR B=71 OR B=81 THEN ACB)= 


200 IF 10*INT(B/10)=B THEN A(B)=255 
210 NEXT B 

220 FOR B=-iTO4 

230 REM: DISTRIBUTE LANDMARKS 

2490 REM: NO ENTRY 

250 ACRND(77)+4+11)=255 

260 X=RND(77)4+11:21IF ACX)=255 THEN 260 
2706 REM: MAGIC FUNNEL 

2B8@ A(X)=63:REM "?" 

290 X=RND(77)+11:5IF ACX)=255 THEN 2990 
3e@ REM:RAM BEAST 

310 ACX)=66:REM "B" 

320 X=RND(77)411:1IF ACX)I=255 THEN 320 
33@ REM: BOTTOMLESS QUAGMIRE 

340 A(X)=81:REM “GB” 

350 FOR Y=1 TO 2 

340 X=RND(77)411:2EF ACXI=255 THEN 340 
370 REM:sLOVELY GOLD 

3SBO@ ACXI=71:REM "G" 
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390 NEXT:NEXT 

400 E=55:REM YOUR LOCATION 

41¢@ ENDPROC 

4206 REM*X*# 28 HH HERKE 

430 DEF PROCstatus 

440 A(E)=72:REM “H" 

450 Q= RND(3)-1 

466 IF =e PROCmap 

470 CLS 

48e G=1 

490 PRINT 7’ 7 CHRS (1 258+RND (5) )5CHRS(141)5 "You 4 
re in sector “s5E 

5¢@ PRINT CHRS(128+RND(5))5CHRS(141)5"You are 
in sector ";€E’ 

51@ IF G>@ PRINT CHR$(128+RND(5)) "with Romland 

gold worth ‘*"5;G 

520 PROCclues 

SS3@PRINT *” *CHRS(128+RND(5)) "You must endure f 
or just "525-H3;" more hours" 

946 X=128+RND(5) 

508 PRINT ’CHRS(X)5 "Which direction do you wan 


56@ PRINT TAB(S) sCHRS(X)5 "to move (N, S, E or 


370 Z%=GETS 

580 IF Z$<>"N" AND Z#<>"S" AND Z$<>"E" AND Z< 
>"W" THEN 57 

390 U=e:CLS 

600 IF Z#="N" AND A(E-10)=255 THEN U=1 

610 IF Z¢="S" AND ACE+190)=255 THEN U=1 

620 IF Z$="E" AND ACE+1)=255 THEN U=t 

630 IF Z$="W" AND ACE-1)=255 THEN U=1 

64@ PRINT 

6350 IF U=0 THEN 690 

660 PRINT CHR#(141)5"Ha ha, he he, no exit the 
re be!" 

4670 PRINT CHR$(141)5"Ha ha, he he, no exit the 
re be!" 

686 GOTO 5406 

6906 A(E)=46 

7@0 IF ZS="N" THEN £=E-19 

710 IF Z$="S" THEN E=E+16 

720 IF Z$="E" THEN E=E+1 

730 IF Z$="W" THEN E=E-1 

74@ IF ACE>}=63 THEN PROCtunnel 

750 IF ACE)=466 THEN PROCbeast 

760 IF ACE)=81 THEN PROCquagmire 

7790 IF ACE)=71 THEN PROCgold 
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78e 
79O 
Hee 
B19 
B20 
B30 
8490 


ENDPROC 

REM¥H KERB REEE 

DEF PROCtunnel 

K=2+RND (7) 

FOR T=254 TO 1 STEP -2 

SOUND 3,-15,T,1 

PRINT TAB (@, 20) 5 CHRS (128+RND(S))5"Oh! You?” 


ve fallen into a magic tunnel" 


85e 
orted 
8690 


PRINT CHRS (128+RND(5))3 "You will be transp 
to a random" 
PRINT CHRS (128+RND(S))5 "part of Romland... 


~Stand by..." 


8790 
88e 
8990 
9702 
910 
922 
930 


NEXT 

ACE) =63 

E= RND(77)4+211:5IF ACE) =255 THEN B70 

ENDPROC 

REM 3 2 4-0-4968 HE 

DEF PROCbeast 

FOR J=1 FO 24:PRINT CHR$(128+RND (5) ) 5 "eee 


ERE HEE EEE KKB KEKE BHR KHRERHREHERERE? NEXT 


940 
93ae 
97650 
970 
780 
770 


FOR Y=1 TO 2 

FOR J=1TO3e 

SOUND @,-15,RND(255) ,RND(3) 

SOUND 1,-15, 255—7* (INT(J/5)),3-Y¥ 

NEXT: NEXT 

PRINT TAB(6, 17) 3} CHRS(141)3 “Warning! !":PRIN 


JT TAB(6)5CHRS(141)5"Warning!!" 


1000 
101¢ 
19020 
1@3¢e 


FOR J=1 70 5 

SOUND 1,—-3*J,40, 30-2#J 

NEXT 

PRINT CHR$(129)5 "You have come across a"CH 


R$ (132) "RAM beastie!" 


16490 
19050 
1m 
1640 
1070 
1080 
10906 
11006 
neis 
1110 
1120 
1130 


s and" 


1146 
115@ 
114606 


FOR J=tTOS0e 
PRINT TAB(CS, 14) 5 CHRS (1 28+RND(S5))5 "Stand by 


NEXT 

CLS 

M=RND (190) 

IF M>3 FHEN 1130 

PRINT *’’CHR#(13@) "Luckily for you, this o 
blind!" 

FOR 7=1 FO 5000: NEXT 

ENDPROC 

PRINT CHR#(131)7777"0h no! It has seen you 


FOR J=1 TO 1000 STEP 10 
SOUND 1,—-15, (J+1)/4, 1 
NEXT 
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IF M<9 THEN 1210 

PRINT (CHR$131) "decides to ignore you!” 

FOR Z=1TO1500: NEXT 

ENDPROC 

R=3 

PRINT CHR (2129)5CHRS(141)5 "2... ee eee EATS 


FOR Z=17T01500:NEXT 
PROCend_of_the_worid 
DEF PROCquagmire 
FOR J=1 TO 100 


SOUND 2,-15,255-J,1 
NEXT 
PRINT’ 7? TAB (5) 5 CHR (141) "You’re standin’ i 


n a quagmire" 


1320 


PRINT TAB(S) 5 CHR$(141)5"You’re standin’ in 


a quagmire" 


1330 


PRINT’ ’”’CHR$(126+RND(5))".....-Bye bye, suc 


Ld —) ea ee ee mee ee 


1340 
1350 
1360 
1370 
1380 
13970 
1400 


148e 


FOR J=1 TO 254 


SOUND 0,-15,J,1 

NEXT 

Q=3 

PROCend_of _the_wortd 


REM HHHREMRHEHRHMREKHEEH 

DEF PROCgold 

FOR J=1 TO 100 STEP 5 

SOUND 1,-15,3/4,1 

SOUND 2,-15,J/5,1 

PRINT CHRS(128+RND(5)) "2... eee cee a cena cere 6 
penweeneenee aa 

FOR J=1 TO 1000 STEP 17 

SOUND 1,-15,3/4,1:SOUND 2,-15,]/5,2 

PRINT TAB(14, 10) 3 CHRS (128+RND(5)) 3 CHRS (144 


3 "Goid:™ 


1490 


Gold!” 


15006 
151@ 
1520 


PRINT TAB (14) 5 CHRS (126+RND (5) ) SCHR (141)95" 


NEXT 
FOR 3J=1TO40:PRINT=FOR Z=1TG60: NEXT:=NEXT 
PRINT TAB(O@, &) s;CHR$(128+RND(5)) "You have f 


ound one of the fabled" 


15308 


PRINT ** CHR#(2i28+RND(5))5 "lost gold mines 


of Romland!" 
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1548 K=RND(100)+5¢e 
1556 PRINT’ ?CHRS(128+RND(5))5 "You have found go 
Yd worth ‘"5k5"tbiie 
1560 G=G+K 
15706 FOR J=17T01ee 
158@ SOUND 1,-15,154+J,1 
1590 SOUND 3,-15,190+J3/2,1 
160@ NEXT 
1619 CLS 
1620 ENDPROC 
1630 DEF PROCciues 
1640 L=44 
165@ IF ACE-11)<>46 THEN L=ACE-11) 
16450 IF A(E-10)<>46 THEN L=A(E-190) 
1670 IF ACE-9)<>46 THEN L=A(E-9) 
1680 IF ACE-1)<>46 THEN L=A(E-1) 
169° IF ACE+1)<>46 THEN L=ACE+1) 
1700 IF AC(E+9)<>46 THEN L=A(E+9) 
1710 IF A(E+10)<>46 THEN L=A(E+10) 
1720 IF ACE+11)<>46 THEN L=A(E+11) 
1730 IF t=46 THEN 2040 
1740 FORJ=iTO7 
1756 FOR Z=1TOS00: NEXT 
1760 SOUND 1,-15, 20*J,3 
1770 NEXT 
178@ IF RND{(3)>1 THEN 18680 
17970 FOR J=1TORND (9) 
1800 PRINT *CHR$(126+RND(S))"Stand by, intrepid 
traveller..." 
1810 PRINT CHR$(128+RND(5))"Here’s a clue comin 
up...” 
1820 SOUND 6,-15,RND(S3) , 3: SOUNDI,—15,RND(3),3 
1830 FOR Z=1TOS@0:NEXT 
1840 NEXT 
1856 FOR J=1TOSEOSTEP1E 
186@ SOUND 3,-15,J3/2,1 
1870 NEXT 
188@ FORJ=7 TO 1 STEP -1 
189° PRINT CHRS$(128+RND(35))"Clue...clue...clue! 
1900 FOR 2Z=1TO5e6: NEXT 
1910 SOUND 1,-5,30#J,1 
1920 NEXT 
193¢@ CLS 
1940 FOR J=1 TO 4@ 
1956 PRINT TAB(@, 9) s CHRS (126+RND (5) ) “Somewhere 
near you is "5 
1946@ IF L=255 PRINT "a No Exit" 


? 
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1970 IF L=63 PRINT "a magic tunnel" 
1980 IF L=66 PRINT "a RAM beastie" 

19906 IF L=81 PRINT “a quagmire” 

2000 IF L=71 PRINT "a gold mine" 

2910 PRINT TAB(@, 13) 5 CHR# (128+RND(5))53 "Who woul 
d believe it?" 

2920 SOUND RND(3),—-15,RND(126)+127,RND{(3) 

2@3@ NEXT 

24040 ENDPROC 

2056 DEFPROCend_of_ the_world 

206@ CLS 

2670 IF @=9 THEN 2190 

20890 PRINT’ 7 CHRS(i28+RND(5) > "You just blew it, 
buddy!" 

209@ PRINT CHR (1268+RND(5)) "You are remarkably 
dead..." 

2100 ACE)=72 

211@ PRINT CHRS(i28+RND(S))"You survived for “5 
Hs" hour"; 

2120 IF H<>1 PRINT“s"” ELSE PRINT 

2130 IF G>@ PRINT CHRS(128+RND(5)) "and found go 
ld worth ‘°"s5G 

214@ PROCmap 

215@ FOR Z=1 TO S®0 STEP 30 

2160 SOUND 1,-15,2Z/3,1 

2170 NEXT 

2180 IF Q=0 ENDPROC 

2190 60T0 2150 

2200 DEF PROCmap 

22106 PRINT 1TAB(11,8)5CHRS (134) 5 "Romi and" 

2220 PRINT TAB(C11) sCHRS (141) 5 °HXHHREE" 

2230 FOR J=6 TO 97@ STEP 16 

2240 M=A(J41) =N=A(J4+2) s O=A(I+3) sP=ACI+4) = Z=ACI+ 
3) = R=A(I4+5) = S=ACI+7) = T=ACI+8) SUHACIt+9) s VEHACI+10) 
22506 PRINT TAB(7)335CHRS (128+RND (5S) ) 5 CHRS(M) 5CH 
R# (N) 3 CHR$ (0) 5s CHRS (CP) 5 CHRS (Z) 5 CHRS (R) 5 CHRS (5S) 5 CH 
R$ (T> s EHRS CU) s CHRS CV) 

2260 SDUND 3,-15, 255-J,2 

22790 NEXT 

2780 FOR T=1TO?00G6: NEXT 

2290 ENDPROC 
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The Game 


This Gomoku, adapted from a program written by Graham 
Charlton, puts up a strong defence and will give you a good game. 
The aim of the game is simple - try to get five of your pieces (the H, 
for human) in a row or diagonally, while trying to block the 
computer (‘C’) from doing the same. The computer, of course, is 
trying to block your pieces while trying to build up its own row of 
five in any direction. 

You move by entering the number along the side of the board 
(eg. 6) and then the number along the top (eg. 4) as one number (ie. 
64). The piece will appear in position, and there is a brief pause 
while the computer works out a devastating response. 

Note that if you keep on making bad entries the screen scrolls. 


The Program 

10 Title. 

20 Sends action to the initialisation procedure. 

30 Sends the computer to the procedure which prints out the first 
board. 

50-110 This is the master REPEAT/UNTIL loop which controls the 


whole game. 


130-190 This procedure, ‘check’, is called while the computer is 
considering its moves (from lines 590, 610, 790, 1090 and 1110) and 
also when it is checking to see how many in a row you have. 


210-360 This procedure prints out the board, with line 290 
determining which colour will be used for which piece. 


380-490 This procedure accepts your move. Line 390 clears the 
buffer, and line 400 makes a brief sound so you know it is time for 
your move. Line 440 moves the print position up one line (using 
CHR$(11)) and then overprints the words ‘Please enter your move’ 
with a line of spaces. Line 460 checks if the move is legal and, if it is 
not, sends the program back to line 410 to ask for a new move. 


520-1000 This is the heart of the program, in which the computer 
looks at the board and decides on its move. Starting from where 
you last placed a piece (G), the computer searches around this 
location, calling up the ‘check’ procedure. If it finds (line 640) five 
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in a row, it sends the computer to the 'you_win’ procedure. The 
rest of the procedure determines which move is best and, having 
made a decision, signals this to you with a short sound (line 990). 


1620-1150 The computer checks its latest move, to see if this has 
completed a line of five in any direction and, if it has, sends the 
computer to the procedure ‘i_win’. 


1170-1600 This is the initialisation procedure. Line 1190 turns off 
the cursor, line 1200 sets up the arrays for the board (A) and the 
directions around a particular square (X). Lines 1300 to 1320 play 
three chords to start the game off, and lines 1360 and 1370 allow you 
to choose whether you will go first. If you want first move, line 
1390 sends the computer to the end of the procedure (line 1450). If 
not, the computer chooses at random from 12 good opening moves 
(represented by the DATA statements in line 1460), generating a 
little bit of sound (line 1410) while doing so. 


1480-1520 The procedure triggered when you win. 
1540-1600 The procedure triggered when the computer wins. 


Suggestion for improvement 
+ An option to start a new game or ‘gracefully’ exit. 


The Listing 


16REM#*GOMOKUs* 
2e@PROCinitialise 
S@PROCboard 
BOREMEHHKE ERE EHEE 
SOREPEAT 
60PROCplayer, move 
7@PROCboar d 
BOePROCmove 
SePROCboard 
190PROCmove_two 
1L@Q@UNTIL FALSE 
1 POREM HEHE RH 
1S0DEF PROCcheck 
L4Q0E=A 
1I5e@E=-E+N 
1S6Q0IFACE)<>Z THENISe 
170K=K+1 
1seGOTO15e 
190ENDPROC 
POOREMER EEE HEHE EREREE 
Z1i@DEF PROCboard 
ZZOPRINT CHRS(30)77? 
P3OPRINTCHRS(128+RND(5)93" 123456 7 8" 
Z4E@PRINTCHRS$(1284+RND{(6))5"% —-----—------——"- " 
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2 J0FORA=1TO8 

2Z6OPRINTCHRS (131) 5A5 

2790F0RB=2TO9 

ZBOM=A (A#1904+B) 

29O6F=—130% (M=67) —1 33% (M=72) —134% (M=44) 

300 PRINTCHRS (F) 3 CHRS(M) 5 

S19NEXTB 

SZO@PRINTCHRS (131)5A 

S3ONEXTA 

S40OPRINTCHRS (£2B84+RND(S))3% —-—--——------—-————— . 

SSO@PRINTCHRS (128+RND(6)25" 12345 & 7 8" 

S69ENDPROC 

STORE MH HE EEE IEE 

S86DEF PROCplayer_move 

SPOxFX 15,0 

400S0UND2, —15, RND(5@) +25, 1 

410PRINT’” CHRS (1 28+RND(6))5"Please enter your 
moves 

420INPUTG 

43QSOUND3, —15, RND(10)+128, 2 

440PRINTCHRS(11)5”" 


4506=6G+1 

460IFG<12 GR G>OB9 OR A(G)<>ASC"." THEN 4190 

470PRINT TAB (22, 11)5 CHR (1 28+RND(6))5 "Please 
stand by” 

4890Z=ASC"H" 

4IOA (GI =Z 

S@GENDPROC 

S51 OREM 990 HE HE EEE EEE 

S20DEF PROCmove 

SS@PRINT TAB(22,114)5" m 

540A=6 

5S5SeL=6 

Sé0FORX=1 TO 4 

57OK=e 

SBON=X (X) 

SIVOePROCcheck 

6G0N=-N 

6tePROCcheck 

&20IFK>L L=K 

G3ONEXT X 

£46IFL>S PROCyou_win 

HS0T=t 

66@IFT<>2 Z=ASC"C" 

67OIFT=2 Z=ASC"H" 

45806=¢6 

69O0H=e 
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7FOOL=6 

7IOFORA=12TO 89 

7FZON=0 

7SOIFACA)<>ASC"." THENS8O 
740OFORX=1 TO 4 

7T5SOK=9e 

7J6ON=X (X) 

77OPROCcheck 

7BON=—-N 

77OPROCcheck 

BeEOIFK>L H=@:L=K 
BLOIFL<>K THENS4e0 
B20IFT=1 AND L<4 THENSé9 
BSCGIFT=2 AND L<2 THENS6O 
B401IFT=3 AND L<2 THENS6éO 
BIOM=M-+ i 

B&ONEXTX 

B7OIFM<=H THENTOSe 

SB0H=M 

B90G=A 

FSOONEXTA 

PI@IFH<>9 THENSSe 
92ZOT=T+1 

FSOIFT<>4 THENSS0 

740A=1 

9S5CG=RND (77) +142 
9SO01IFA(G)=ASC"." THENS8O 
97O0A=A4+1: LFA< A4QOTHENTSS 
980A (G)=ASC"C” 
99OSOUNDS, —15,RND(20) ,2 
1 @O@9ENDPROC 

101 OREM #5 46 HH HEHE 
1620DEF PROCmove_two 
1@30Z=ASC”"C" 

1040A=G 

195¢6L=0 

1@60FO0RX=1TO04 

1070K=0e 

LOBON=X (X) 

19099PROCcheck 

1100N=—-N 

1110PROCcheck 

11206IFK>L L=K 

11LSONEXTX 
114@0IFL>S3PROCi_win 
1150@ENDPROC 

LL BOREME HHH HEHEHE HEHE 
117@DEF PROCinitialise 
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118@CLS 
119@VDU23; 82025050350 

12Q@DIMA (100), X(4) 

121 0FORA=1 TOS 

122@FORB=2T09 

1230A (A*10+B) =ASC"." 

1240NEXTB 

125@NEXTA 

1260FORQ=1T04 

1270READF: X (@) =F 

1 28@NEXTO 

1290DATA 1,9,10,11 

1300SOUND1, —15, 29, 8: SOUND2, —15, 13, 8: SOUNDS, -—15 


41,8 
3 tI 

1310SOUND1, —15,5, 8: SOUND2, —15, 21, 8: SGUND3, —-15, 
33,8 

132@SQOUND1, ~15, 29, 8: SQUND2, -15, 13, 8: SOUNDS, -15 
341,98 


1IS30PRINT’ *? 7 CHRS(131}3, "GOMOKU" 

IS4OPRINT?” ? 7CHR$(12995 "Do you want the first 
move?" 

1S5@PRINTTAB C12, 12) s;CHRS(133)5"Y or N"” 

1360Q0S=GETS 

1370IFOQ$<>"N" AND @$<>"Y" THEN 1340 

138eCLS 

1S90IF MID#H(Q$,1,13<>"N" ENDPROC 

140@FORJ=1TORND (12) 

1410S0UND3, -15, 256/12*J,3 

1420READZ 

1430NEXTI 

1440A¢Z)=ASC"C”™ 

1456ENDPROC 

1466DATAS4S, 35, 36, 44, 45, 46, 47,54,55, 56,597,566 

14 ZF OREM HHH HE HHH EE 

1480DEF PROCyou_win 

149OREPEAT 

LOSO@PRINTCHRS (128+RND(6))5 "You win! "5S CHRS{(11) 

IS190UNTIL FALSE 

1S520END 

1L5HSOREMHAMH EH HHH EH 

1IS4@ENDPROC 

155@DEF PROCi_win 

1IS40REPEAT 

£570PRINTCHRS (128+RND(6)95"I win! "3 CHRSC(LL) 

ITSBe@UNTIL FALSE 

IS5S90@END 

1 600ENDPROC 
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The Game 


In this game, you are on safari in Darkest Africa. A herd of 
elephants charge at you. In your terror your only thought is to 
avoid their oncoming grey mass — you do not consider killing them. 

In real life (that is, in computer terms) you are a little asterisk 
in the centre of the screen, and can move right and left with the 
cursor right and left keys. The oncoming elephants appear as blobs 
which roll up the screen towards you. As you flee, you leave a line 
of asterisks in your wake. This line undulates rather satisfactorily 
with every move. 

A suitable message is printed at the centre of the screen when 
you are hit by an elephant; the screen flashes violently. A message 
telling you your degree of staying-power follows this. 


The Program 


20 Sets the computer to mode 4. Model B owners could alter the 
program to run in mode 0, which gives a bigger playing area. 

30 Calls PROCinit, which carries out general housekeeping such as 
turning off the cursor and setting variables which govern the 
difficulty of the game. 

40 Sets up the main REPEAT loop of the game. 

50 Checks for a key press. The variable ‘time_limit’ was set in 
PROCinit so, by altering this value, you can change the speed of 
the game. 

60 Clears the keyboard buffer, to ensure that no spurious 
characters are picked up; these could slow down the speed of the 
game. 

70 Calls PROCmove, which moves the asterisk in response to any 
keys which may have been detected in line 50. 

80 Calls PROCroad, which creates a new row of elephants. It is 
called ‘road’ because the row looks more like a section of pot-holed 
road in the final version than like a herd of elephants. 

90 Increments ‘goes’, which is a variable containing the number of 
goes you have had; in other words, the number of opportunities 
you have had to move. 

100 Carries out the above operations again, until a hit is 
registered. The variable ‘hit’ is set in PROCmove. 

110 Prints a cry of anguish for your demise. 
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120 Restores the speed of repeating on the keyboard to normal. See 
the chapter on *FX calls in the User Guide. 

130 Restores the cursor control keys to their normal functions. 
140 Turns the cursor back on again. 

150-200 Form a FOR loop which flashes the screen on and off. The 
calls to PROCdelay slow the flash down. 

210 Clears the screen ready to print out the message describing 
your standard of evasion. 

220 Switches the screen to blue writing on a green background. 
230, 240 Print the message. 

250 Ends the game. 


270 Starts the definition of PROCinit. 

280 Initialises the variable ‘position’, which is the displacement of 
the asterisk from the left-hand side of the screen. 

290 Initialises the variable ‘difficulty’, which gives the difficulty of 
the game, in terms of the number of elephants charging during each 
scroll. 

300 Initialises the variable ‘time_limit’, which is the argument of 
the INKEY$ statement, and so governs the speed of the game. 

310 Changes the cursor contro! keys to the mode where they give 
codes rather than just move the cursor about. 

320 Stops the delay between a key being pressed and the key 
repeating. 

330 Turns off the cursor. 

340 Re-defines character 255 to be a block with rounded edges. 

350 Changes the foreground colour to red, and the background 
colour to yellow. 

360 Initialises the variable ‘goes’ to 0. This variable counts the 
number of moves you have made. 

370 Ends PROCinit. 


390 Starts the definition of PROCroad. This procedure prints out a 
new row of elephants and scrolls the screen. 

400 Sets ‘counter’ to be a local variable. 

410 Positions the cursor at the very bottom left of the screen. 

420 Starts a loop, with 40 iterations, to print either elephants or 
spaces. 

430 If a random number between one and ‘difficulty’ is one, prints 
an elephant; else, prints a space. 

440 Ends loop. 

450 Ends PROCroad. 


470 Starts the definition of PROCmove. 

This procedure moves you in response to the key-press detected in 
line 50. 

480 If the cursor left key is pressed, moves left by decrementing the 
variable ‘position’. 

490 If the cursor right key is pressed, moves right by incrementing 
the variable ‘position’. 
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500 If you move off the right-hand side of the screen, places you on 
the last position on the right. 

510 If you have moved off the left-hand edge of the screen, this 
places you on the first position on the left. 

520 This line checks to see if the character at the place you want to 
move to is an elephant. This is done by using the routine given in 
the chapter on *FX calls in the User Guide. If the character is an 
elephant, the variable ‘hit’ is set to true. You will remember that 
this variable is used in line 100 to sense when the game has 
finished. 

530 This line prints the asterisk at the required place. Because the 
screen has been scrolled since this routine was last called, there is 
no need to rub out your old position. 

540 Ends PROCmove. 


560-630 Make up PROCreadch (X, Y). This routine is documented 
in the User Guide, in the chapter on *FX calls. 


650 Starts the definition of PROCdelay, which gives a tenth of a 
second delay. 


Suggestions for improvement 


e The game as it stands has no sound effects. Maybe a blood- 
curdling roar would help to put you in the right frame of mind. 

¢« You can use the character definition program on page 133 if you 
would like to make the elephants look a little more menacing. 

* Modify the program to exit or restart ‘gracefully’ and also flush 
the key buffer. 

¢ Change the colours to suit your eye. 


The Listing 


10 *#KEY @ "#FX 12°:M*"FX 4:M™ 

2@ MODE 4 

30 PROCinit 

40 REPEAT 

50 AS=INKEY$(time_limit) 

60 #FX 15,0 

70@ PROCmove 

Be PROCroad 

97@ goes=goesti 

100@ UNTIL hit 

116 PRINT TAB(S, 20);" 
ArghhhbhbhbbhhbhbhhbhbhbbhhbpbhA!e! 

120 *FX i2 

130 *FX 4,¢@ 

146 '&FEQO=%190570A 

i5e FOR T=1 TO 10 

140 VDU 19,0,3,9,¢,0,19,1,5,0,0,90 
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170 
186 
199 
200 
216 
226 
230 


PROCdel ay 
VDU 19,1,3,90,9,0,19,90,5,9,90,90 


PROCdelay 

NEXT 

CLS 

VDU 19,1,4,90,0,9,19,0,2,9,9,9 

PRINT 7777" You took "S$goes;” steps, 


before you”’ 


240 
250 
260 


PRINT "were trampled..."%777 
END 
PREM 636969 FEE HE HE IE IEE HEHE EE EE EE HE HE EE EEE HE 6 EE dE SE 


MEEKER ERC HEREKERKRRERHRHRHARE RHEE 


270 
280 
290 
300 
310 
320 
3350 
3490 


350 
360 
370 
380 


DEF PROCinit 

position=2e 

difficulty=190 

time_limit=3 

*FX 4,1 

*FX 11,1 

VDU 23582025 050505 

VDU 23,255, &7C, &FE, &FE, &FE, &FE, &FE, &FE, &7 


VDU 19,1,1,0,0,0,19,9,3,9,90,0 
goes=0 
ENDPROC 
REM 2 EHH HHH KEE HERRERA RRERREE 


HHEKK HEHEHE EE RKAAKKEKHAKEKRERKKEREE 


390 
400 
410 
420 
436 


DEF PROCroad 

LOCAL counter 

PRINT TAB(6,31)5 

FOR counter=1 TOG 498 

IF RNDidifficulty)=1 THEN VDU 255 ELSE 


VDU 32 


440 
450 
462 


NEXT counter 
ENDPROC 
REM 69656 EEE IEE IEE EE EEE ETE HEE EE HEHEHE ERE 


HHH REE HEE EEE EH EKER RHEE RE 


4706 
480 
490 
5eo6 
319 
526 
5398 
340 
35¢@ 


DEF PROCmove 

IF A&%=CHR# (1346) THEN position=position—t 
IF AS=CHRS (137) FHEN position=position+i 
IF position>39 THEN position=39 

IF position<® THEN position=e 

hit=FNr eadch (pos:3 tion, 16)=255 

PRINT TAB(position, 16); "*" 

ENDPROC 

REM 44K RHR KEK RRR KER ERKEEREEE 


HKEEKKHKKK KARE EE ERE ERAEKERAEE 


3690 
578 


DEF FNreadch(x, Y? 
LOCAL A%,C 
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SBO 
Dz7e 
460 
6190 
628 


VDU 31,X,Y 
A“Z=135 
C=USR(&FFF4) 
C=C AND &FFFF 
C=C DIV &108 


630=(C MOD 32)+224 


640 


REM KHER HEHEHE KEREREEHAEHREHK EKER KKKRKEEBRE 


HEE GEE HHH EHR REREREREEKEEEEEREEE 


é5e 
640 
670 
4580 
690 


DEF PROCdelay 

TIME=e 

REPEAT UNTIL TIME>1¢ 

ENDPROC 

PREM EE HE HHH EEE ER EEE REE 


HKHEKKKHH REE KHK HER KHKEKRRREKAEEE 
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me Models A and B 


The Program 

This program allows you to re-define characters 224 to 255, building 
up a character on the screen using the cursor control keys. Full 
instructions are included in the program. 


In this version, the program re-defines the character you 
requested, and then ends. You may find it more convenient to have 
it actually print out the VDU statement required, which you can 
then copy down and include in the PROCinit part of our games in 
this book, to enhance the displays we’ve used. Your own programs 
may well benefit from such re-definition as well. 

Remember, you cannot redefine characters in Mode 7. 


30 Starts a REPEAT loop to get a valid character for re-definition. 
40 Clears the screen to Made 7. 

50 Calls PROCask_ questions, which displays instructions; and asks 
you which character you wish to re-define. This character is 
returned in the variable ‘character’. 

60 Ends the REPEAT loop when the character falls within an 
accepted range. 

70 Calis PROCdraw_character, which draws a blank character grid 
on the screen, ready to be used as a template for the new character 
design. 

80 Starts a REPEAT loop for the main program. 

90 Gets a key press from you. 

100 Calls PROCact_onkey_pressed, which does just that. 

119 Ends the loop when TAB is pressed. 

120 Calls PROCassemble, which has nothing to do with assembly 
language but reads the character from the screen and sends the 
correct codes via the VDU statement to redefine character 
‘character’. 

1386 Returns the cursor control keys to their normal] function. 

140 Ends the program. 

160 Starts the definition of PROCask_questions. 

170 Gets the actual character for re-definition. 

180 Prints the instructions. 

190 Requests you to press a key. 

200 Gets the key pressed. 

210 Ends PROCask_questions. 
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230 Starts the definition of PROCdraw_character. 

250 Clears the screen, to remove the text generated by PROCask__ 
questions. 

260 Moves the cursor down the screen. The number of lines it is 
moved is crucial to the operation of the program. 

270 Starts a loop for each of the eight character rows to be printed. 
280 Prints eight full stops preceded by three spaces for each of the 
eight rows. 

290 Ends the loop. 

300 Prints instructions for ending the program. 

310 Initialises the x starting position of the cursor. 

320 Initialises the y starting position of the cursor. 

330 Changes the cursor control keys so that they generate codes 
rather than shift the cursor around. 

340 Ends PROCdraw_character. 


360 Starts the definition of PROCact_onkey_pressed. 

370 Sets the LOCAL variables, 

380 Initialises valid$, which contains ai] the valid key presses with 
codes under 128. This is used to ensure that any key can be used ta 
make a pixel light up. 

390 Sets a Boolean variable ‘on_template’ to be TRUE or FALSE, 
depending on whether the cursor is on the template at the moment. 
400 If the Space Bar was pressed, the next statement uses the 
variable ‘on_template’ to decide whether to print a full stop ora 
space, and the x co-ordinate of the cursor is incremented. 

410 If the key pressed was RETURN, and the cursor is not on the 
bottom line of the display, then returns the cursor to the start of 
the next line and adjusts the co-ordinates of the cursor accordingly. 
420 If the key pressed had an ASCII code less than 128 and was not 
a space or a RETURN character, either prints a space or a white 
block, depending on whether the cursor is on the template or not. 
All co-ordinates are similarly adjusted. 

430 If the key pressed was ‘cursor left’ then moves the cursor left 
and adjusts the x co-ordinate of the cursor. 

440 If the key pressed was ‘cursor right’ then moves the cursor 
right and adjusts the x co-ordinate of the cursor. 

450 If the key pressed was ‘cursor down’ then moves the cursor 
down a line and adjusts the y co-ordinate of the cursor. 

460 If the key pressed was ‘cursor up’ then moves the cursor up and 
adjusts the y co-ordinate of the cursor. 

470 Ends PROCact_onkey_pressed. 


490 Starts the definition of PROCassemble. 

500 Sets all the LOCAL variables needed. 

510 Sends the first part of the required VDU statement. 
520 For each of the eight rows in the character... 

530 works out the start address of that row... 

540 resets acounter... 
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550 and for each of the eight bits in the row... 
560 increments the counter if necessary... 

570 then ends the bit count... 

580 sends the right byte to the VDU driver... 
590 and gets the rest of the rows. 

600 Ends PROCassemble. 


Suggestions for improvement 

¢ The modifications for a print-out of the required VDU 
instruction are as follows: 

510 PRINT TAB(0, 15);”The required instruction is: 
VDU 23,” ;character;’’,’’; 

580 PRINT temp;”,”; 

595 VDU 127, 18 


The Listing 


1@ REM Re-defining characters. 

ZO REM 4% ERE EEEEEREERERERE 
SE EE FEE EOE SESE SESE SE TE FE FE AE SE FE SE EE IE EE EEE 

30 REPEAT 

4@ MODE 7 

5@ PROCask_questions 

60 UNTIL character >223 AND character<256 

7® PROCdr aw_character 

88 REPEAT 

972 key_pressedt—GETS 

100 PROCact_onkey_press 

116 UNTIL key_presseds=CHRS$(9) 

126 PROCassemble 

130 *FX 4,0 

140 END 

150 REM 4 ERR EHH HEE HE RHE HREHAHKAEEEKHHERKAKARRRERE 
KKKKKEKEKEHRARKERKEEKRHERHRKRHRHRRERRE 

160 DEF PROCask_questions 

176 INPUT TAB(@,5)" Enter the number of the 
character to be re-defined ? "character 

180 PRINT 7" Use the cursor keys to move 
the cursor around the character. Pressing any 
keyexcept space will make a dot white, 
pressing space will blank out a dot. 
Return’ will move the cursor to the start of 
the next line." 

190 PRINT TAB(@, 24); CHRS(132)5"e#*x* Press ”’ 
space” to continue ***"5 

200 AS=GETS 

210 ENDPRGC 

PIO REM 62 2 IEEE EEE EE EE IESE EI IE FE HE EE EE SE HE 
SEE IEE TE FE HEHEHE ETE ETE EEE EEE EEE EE 
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230 DEF PROCdraw_character 
240 LOCAL row 
2508 CLS 
26@ PRINT ”” 
270 FOR row=1 TO 8 
2B@ PRINT " = wwaasanece a 
2970 NEXT row 
300 PRINT TAB(O, 24) s CHR (1352)5 "xe Press ” 
tab” to finish ***"5 TAB(@, 10)5 
310 xposition=0e 
320 yposition=1e 
330 #FX 4,1 
346 ENDPROC . 
SHO REM HK HE HH HE HEH EH HEHEHE RK KRE KE RRR 
HE HE FEF HEE HE FEE SE ESE HEE FE HEF SE JE ESE FE EE ESE ETE 
360 DEF PROCact_onkey_press 
370 LOCAL validt,on_template 
380 valid$=" “4+CHRS(13) 
372 on_template=xposition>2 AND xposition<1i 
AND yposition>2 AND yposition<11 
400 IF key_pressed$=" " THEN PRINT CHRS(ASC(" 
")-on_temp] ate*14)52:xposition=xpositiontil 
410 IF key_pressed$=CHR$(13) AND yposition<24 
THEN PRINT: yposition=yposi tion+1:xposition=0 
420 IF key _pressed$<CHRS(128) AND INSTR‘ 
valid#, key_pressed$)=0 THEN VDU 32-on_template* 
223: xposition=xpositionti 
430 IF key_pressed$=CHR$(1i36) THEN VDU 8: 
Kposition=xposition—-1 
440 IF key_pressed#=CHRS (137) THEN VDU 9: 
xposition=xpositiontl 
450 IF key_pressed$=CHRt (138) AND yposition<s2 
4 THEN VDU 10: yposition=ypositiontti 
4640 IF key_pressed$=CHRS(139) AND yposition>9 
THEN VDU 11: yposition=yposition—1 
470 ENDPROC 
ABO REM 46H HHI HRI EEE EER HIRE E 
HEHEHE HEE EEE HEHE IE 
499 DEF PROCassemble 
5@@ LOCAL origin,row,bit, temp 
31¢@ VDU 23, character 
92@ FOR row=0@ TO 7 
538 origin=&7C7B+ (char acter—-224) *B+rowk4e 
046 temp=2 
55@ FOR bit=7 TO @ STEP —-i 
56e IF ?lorigint+7—bit)=255 THEN temp-tempt2 
“bit 
57@ NEXT bit 
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5990 VDU temp 

590 NEXT row 

&6@e@ ENDPROC 

G10 REM 4-6 HERE RK EREEREREREREHER EEE EER EE 
EEE HEH EEE EERE RER HEE EE ALERRER 
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We now come to a series of demonstrations which show off the BBC 
microcomputer’s graphics splendidly. The descriptions for these 
programs are not as extensive as for some of the others but are 
detailed enough for you to understand how the programs work, and 
- more importantly — how you can modify them to create your own 
graphics demonstrations. 


‘gracefully’ and putting the computer into Mode 7. 
fal He 
Fei aD 
ae a fete ACN! Ste 


Note You can also improve the programs by doings such as exiting 
A GS GO iz +H 
PU Tae es espe A aL) 
| | Reale 
po eatery Spr Ms a asin rs he: [ESE 
ci 


String art patterns are created by bouncing two points around the 
screen and continually joining the points together with straight 
lines. It is a simple idea but it produces startling results. This 
particular program allows for random colour changes, and changes 
of direction, without having the dots actually bounce off the edge 
of the screen. Also, only a limited number of lines are kept on the 
screen at a time. For every line drawn, another is erased. 

Line 10 dimensions an array to hold the starting and finishing x 
and y co-ordinates of up to 200 lines. Line 20 sets the number of 
lines that will be kept on the screen at a time. Lines 30 and 40 
choose random end-points for the first line. Line 50 chooses white 
as the first drawing colour. Line 60 calls PROCnew_velocities, 
which assigns different velocities to each end of the line in the x 
and y directions. It also chooses the number of lines that will be 
drawn using these velocities. Line 70 puts the computer in Mode 1. 
Medel A owners could run this program in Mode 5, although it is 
not as effective as running it in Mode 1. Then colour 3 is changed 
to blue. The call to PROCnew_colour chooses a random plotting 
colour and also the number of lines that will be drawn using that 
colour. 

Line 100 starts the main REPEAT loop of the program. This is 
an ‘UNTIL FALSE’ loop, so it executes for ever. First a loop is set 
up through all the available lines. Lines 120 and 180 erase the line 
defined by the current element of the array. If the loop 1s executing 
for the first time, the array will be filled with zeros, so all this line 
will do is put a black spot at co-ordinates (0, 0). Lines 140 and 150 
draw the current line, then the start and finishing points of this 
line are copied into the array at lines 160 to 190. Lines 200 to 230 
compose a simple test to stop the pattern going off the edge of the 
screen. Tests like these are always very important. 

In line 240 and 250 the two variables decremented are the 
number of lines drawn with the current velocities and the number 
drawn in the current colour, respectively. Lines 260 and 270 update 
the line co-ordinates, according to the current velocities. Lines 290 
and 300 get new colours or velocities, if necessary. The FOR loop 
then ends, and the UNTIL FALSE line takes over. 

Lines 340 and 350 are set out to enable you to change the 
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maximum velocity. Just make U% equal to the maximum velocity, 
and V% be twice U%. 


The Listing 


DIM MZ (200,35) 

HZ=350 

XZ=RND (1280) -—1: YA=RND (1024)-1 
1L“%=RND (128) —1=2M“Z=RND (1024)-1 
COLZ“%=3 

PROCnew_velocities 

MODE 1 

VDU 19,COL“4,4,0,9,0 
PROEnew_colour 

REPEAT 

FOR UZ=1 TO H% 

MOVE M%(UZ%, 0) ,M% (UZ, 1) 

PLOT 7,MZ(UZ, 2) ,MZ(UZ, 3) 

MOVE XZ,Y% 

DRAW L2,M% 

NZ (UA, @) =X% 

MZ(UZ, 1)=Y¥% 

MZ(UZ, 2) =L% 

m4 (U4, 3) =MZ 

IF AZtXZ>1279 OR AL+X~Z<@ THEN AX%=—-AZ 
IF BY4+Y4>1023 GR BAt+YZ<@ THEN BA~=—Bx% 
IF CZ4+L451279 OR CAAL ZO THEN C2Z=—-C% 
IF DA+MZ>1023 OR DZ+NZ<@ THEN D%=—D% 
N“Z=NZ-1 

COLNZ=CGLNZ-1 

XAZ=XZAHZ3 YA=YA+BA 

LZ=LA+CA: MZ=MNZ+DZA 

IF NZ=0 THEN PROCnew_velocities 
IF COLNZ=0 THEN PROCnew_colour 
NEXT UZ 

UNTIL FALSE 

DEF PROCnew_veiocities 

LOCAL UZ,VZ% 

UA=29 

VA=49 
AZ=U%-RND (V2) = BA=UZ—-RND (V2) 
C“Z=U%-RND (V2) = DXA=UZ—-RND (V2) 
N“Z=RND (36) +20 

ENDPROC 

DEF PROCnew_colour 

COLNZ=RND (30)+190 

IF COL“Z=i FHEN ENDPROC 

GCOL ©,RND(COLZ) 

ENDPROC 
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Models A and B 


Cat oSix Tails 


This program draws psychedelic curves on the screen, with a 
musical accompaniment of sorts. It runs on a Model A ora Model B, 
and is intended more to inform than impress. 

PROCCHANGE at line 160 changes the background and 
foreground colours of the screen, randomly, but with a test to 
ensure that the colours are not the same. PROCNOTE at line 260 
uses the SOUND statement to play a nearly identical note through 
each of the three tone channels. The effect of this is to give a richer 
sound than the tones your computer normally produces. ‘16’ has 
been added to each channel number to ensure all the sound queues 
are cleared before the note is played. 

The rest of the program is made up of a loop through all the 
horizontal points on the screen, followed by some lines to draw 
lines whose lengths are proportional to the SINE of X. Line 140 
calls PROCCHANGE every second to alter the screen colours. 


The Listing 
1@ REM Cat*’o’six tails 
2@ MODE 4 
3@ TIME=0 
40 FOR X=0 TO 1279 STEP 4 
5@ Y=SIN(RAD(X))*X/4 
6@ PROCNOTE (SIN (RAD (X}) 180450) 
7@ FOR G=—20@ TO 1000 STEP 200 
8@ MOVE X,Y+G 
9@ DRAW X, Y+G+(1279-X%) /6.4 
19@ IF TIME>100 THEN PROCCHANGE 
11@ NEXT G 
12@ NEXT X 
130 REPEAT 
14@ IF TIME>100 THEN PROCCHANGE 
15@ UNTIL FALSE 
14@ DEF PROCCHANGE 
17@ LOCAL C,D 
18@ C=RND (4) 
19@ REPEAT 
200 D=RND (4) 


210 UNTIL C<>D 

22@ VDU 19,0,C,%,6,4,19,1,D,0,0,0 
230 TIME=0@ 

24@ ENDPROC 

250 DEF PROCNOTE<‘N) 

26 SOUND 17,—-15,N,255 

27@ SOUND 18,-15,N+1, 255 

280 SOUND 19,~-15,Nt2, 255 

29@ ENDPROC 
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This program is written to run on a Model B in Mode 1, but could 
be run on a Model A in Mode 5. It generates string art patterns — 
with a twist. 

The screen is first filled with a chessboard pattern in colours 1 
and 0 (PROCSTRIPE); then colour 1 is turned to black using the 
VDU 19 statement in line 150. Then a normal string art pattern is 
drawn, except the plotting colour is ‘1,2’. This means 'OR the colour 
specified with the colour already there’. The upshot of this is that if 
a Spot, previously over a section of the screen which was colour Q, is 
lit, it will now appear as colour 2; colour 1 will appear as colour 3. 

The end result is that the lines drawn change according to their 
position. If you wait long enough, the whole screen will fill up with 
lines, showing an overall chessboard pattern. To make the drawing 
start from a new position with new velocities, just press any key. 
This version does not do any undrawing, so you'll have to stop it 
eventually. 

The interesting routines from the point of view of programming 
routines are PROCSTRIPE and lines 100 to 130. Lines 100 to 130 
choose two (unequal) numbers between 1 and 7, and then use them 
as the two plotting colours. 

PROCSTRIPE uses GCOL with a number other than 0 as its 
first argument to fill various graphics windows with colour. This is 
much faster than using triangle drawing commands like PLOT 8&5. 


The Listing 


10 REM "“Chess-—art" 
20 U=20 

30 V=4¢0 

40 MODE 1 

5@ VDU 19,0,0,0,0,0,19,1,9,9,9,9 
6® GCOL 1,2 

7o REPEAT 

8e COLOUR 1298 

7e CLS 

1°0 REPEAT 

11@ AA=RND (7) 

1270 BB=RND(7) 
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130 UNTIL AA<>BB 

149 PROCSTRIPE 

15@ VDU 19,0,0,0,9,0,19,1,0,0,2,2 
16@ VDU 19,2,46A,0,9,9,19,3,BB,9,9,0 
170 REPEAT 

18@ AA=RND(7) 

190 BB=RND(7) 

200 UNTIL AA<>BB 

216 X=RND(1280)—1: Y=RND (1024) ~1 
22@ L=RND (1280) —-1sM=RND (1024) ~1 
230 A=U-RND(V) : B=U-RND (V> 

24@ C=U-RND(V) :D=U-RND (V> 

250 REPEAT 

26@ MOVE X,Y 

270 DRAW L,M 

280 IF X+A>1279 OR X+AC@ THEN A=-A 
290 IF Y+B>1023 OR Y+B<® THEN B=-B 
3Q0 IF 1+C>1279 OR L+C<® THEN C=-C 
310 IF M+D>1023 OR M+D<@ THEN D=—D 
32@ X=X+A: Y=Y+B 

33@ L=L+C:M=M+D 

34@ UNTIL INKEY(1)<>-1 

350 *FX 15 

36® UNTIL FALSE 

376 DEF PROCSTRIPE 

380 GEOL 0,129 

390 FOR T=@ TO 1023 STEP 256 

400 VDU 24,0373 12793 7+1283 

41@ CLG 

420 NEXT T 

430 GCOL 3,129 

440 FOR T=® TO 1279 STEP 256 

45@ VDU 24, Ts 03 7+1285 10233 

462 CLG 

470 NEXT T 

480 VDL 24 

49@ ENDPROC 
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Models A and B 


rison Bars 


This program is the forerunner of ‘Chessart’. It draws ‘motré’ 
patterns, with a foreground achieved in the same way as ‘Chessart’. 
Model A users can modify lines 30, 100 and 210 to run this program. 

The moiré patterns are created by using the inverse line 
drawing commands. A point is chosen, then lines are inverted out 
from it to the edge of the screen. The completed pattern looks as if 
it was drawn using curved lines, which can be puzzling for those 
who do not know the method by which it was done. 

The program runs continuously, clearing the screen after each 
pattern, then choosing new colours and a new starting point. 


The Listing 
10 REM *** Prison bars *** 
2® REM Model *B’ version 
30 MODE 1 
4@ VDU 19,1,%,0,0,0 
3@ REPEAT 
60 CLS 
7@ X=RND(12890) ~1 
8@ Y=RND(1024)-1 
7@ COLOUR 129 
1906 FOR T=4 TO 34 STEP i¢6 
11@ VDU 28,T-4,31,T,@ 
12@ CLS 
130 NEXT T 
140 COLOUR 128 
150 VDU 24 
160 REPEAT 
170 &=RND‘¢7) 
180 B=RND(7} 
190 UNTIL A<>B 
200 VDU 19,2,A,9,9,9,19,3,8,9,9,2 
7106 FOR T=0 TO 1279 STEP 8S 
220 MOVE T,1023 
230 PLOT 6,X,Y 
24@ PLOT 46,128¢-T,@ 
250 NEXT T 
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26@ FOR T=@ TO 1023 STEP 4 
270 MOVE 9,T 

2806 PLOT 4,%,Y 

29790 PLOT 45,1279, 1924-T 

S@06 NEXT T 

310 TIME=0 

326 REPEAT UNTIL TIME>100 
3390 UNTIL FALSE 
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Models A and B 


Right oClock 


This program draws eight circles, connected together in the middle 
of the screen, using straight lines. When this has been done, the 
whole screen tosses back and forth, lke the effect at the end of the 
‘Rain Catcher’ program. 

The basis of the routine is the procedure at line 190. This draws 
a filled-in circle with its centre at X, Y and with radius R. 

The lines from 80 to 170 throw the screen around. Alter line 120 
to change the speed at which this happens. 


The Listing 


10 REM "Eight o’clock" 

2@ MODE 4 

3@ S=400: D=5¢0 

40 FOR A=6 TO 315 STEP 45 

5@ MOVE 640,512 

50 PROCCIRCLE (SEN (RAD (A) ) *S+646, COS (RAD (A) ) * 

5+512,D) 

7O NEXT A 

88 REPEAT 

9@ FOR T=e@ TO 39 

10@ VDU 23,0,13,T,0,%,6,0,9,9,9,0,8,0 
110 TIME=e i 

126 REPEAT UNTIL TEIME>3 

130 NEXT T 

146 FGR T=39 TO @ STEP ~1 

150 VDU 23,06,13,T,0,0,0,0,0,0,0,9,6,2 
160 NEXT T 

170 UNTIL FALSE 

48@ UNTIL FALSE 

190 DEF PROCCIRCLE(X,Y,R> 

200 LOCAL step,angle 

21@ step=5 
220 FOR angle=@ TO 34@-step STEP step 
2350 DRAW X,Y 
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240 MOVE SIN(RAD (angle) )*R+X,COS(RAD (angle) >* 
R+y¥ 

250 PLOT 85,SIN(RAD(angle+step? ) *R+X, COS (RAD ¢ 
angletstep) )#RtY 

260 NEXT angle 

270 ENDPROC 


The following two programs draw flower-shaped patterns. Number 
one is for Model A and Mode! B owners; number two may only be 
run by Model B owners. The programs have a heavy mathematical 
colouring but this is not the place to discuss polar plotting. 

If you alter the multiplying factor in line 90, you will get a 
different number of petals. If you’re feeling really adventurous, you 
can even alter the function in line 90 altogether. The function 
should compute in the range 0 to 500 as X varies from 0 to 360. The 
best way to alter it is by trial and error. If the pattern goes off the 
edge of the screen, just reduce the multiplying factor. 


The Listings 


10 REM Poiar ptot -- mark ft 

2Q@ MODE 4 

30 VDU 29, 6405512;5 

4@ MOVE 9,FNF (@) #500 

78 FOR A=e@ TO 34e 

60 DRAW SIN CRAD (A) ) XFNF (A) , COS CRAD (A) ) *F NEF ¢ 
A) 

72 NEXT A 

Be END 

9@ DEF FNF (X) =S0O#SIN (RAD(X#B8) ) 


19@ REM Polar plot —— mark ii 

290 MODE 2 

30 VDU 29,6465 5123 

490 MOVE ©, FNF(@) «500 

5@ FOR A=e TO 360 

55 MOVE 2,92 

96 GCOL @,RND(7) 

60 DRAW SINCRADCA) ) #FNF CA) , COSCRAD(A) ) *FNE ( 
A) 

7@ NEXT A 

Be END 

9@ DEF FNF (X) =500*SIN (RAD (X*8) > 
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This is strictly for Model B owners, since it runs in Mode 2. 

A solid circle is drawn, occupying nearly the whole screen. The 
circle is coloured in segments, going from colour 1 to colour 15 and 
back to 1 again. Each segment is 10° wide, so there are 36 of them. 
When all the segments have been drawn, all the 15 colours used are 
turned to black, using the VDU 19 statement. Then, in rotation, 
each colour is changed to blue, and back to black again. The total 
effect is like a cartwheel rotating extremely fast, much faster than 
could be achieved by using repeated PLOT 85 statements. 

If you adjust the number in line 40, you can alter the speed at 
which rotation takes place. 


The Listing 


10 REM This program generates a cartwheel 
effect in Mode 2 

2® MODE 2 

3@ step=6 

40 time=190 

3@ FOR angle=90 TO 359 STEP step 

60 MOVE 640,512 

7@ MOVE SIN (RAD (angle) ) #5004640, COS (RAD ( 
angle) ) #5064512 

86 GCOL 0, (Cangle/step) MOD 15)+1 

90 PLOT 85, S5IN(RAD(angletstep) )*500+640,C05 ( 
RAD (angl efstep) ) #5064512 

100 NEXT angle 

110 FOR colour=1 TO 15 

120 VDU i19,colour,@,¢6,¢6,¢ 

130 NEXT colour 

140 REPEAT 

4150 FOR colour=1 TO 15 

1460 VDU 19,colour,4,6,0,8 

1790 TIME=0 

186 REPEAT UNTIL TIME=time 

19@ VDU 19,colour,%,9@,9,02 

200 NEXT colour 

2190 UNTIL FALSE 
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This program is a further variation on the string art theme. It 
draws common-or-garden patterns, but only uses one quarter of the 
screen. The other three quarters contain reflections of the first 
quarter. There are also some refinements in the picture control 
over the other versions: pressing any key brings you into ‘hold 
mode’, where no drawing takes place. You can come out of this 
mode by either pressing TAB to make the drawing start again from 
a CLS, with new starting positions and new velocities; or any other 
key to just restart drawing where it left off. 


Note You should put the computer in a suitable graphics mode 
before running. 

The only noticeably clever part of this routine is the procedure 
at line 240. This procedure joins X, Y to L, M, using PLOT K. It 
does this in all four quadrants of the screen, using a couple of loops. 
Bear in mind that the origin has been moved at line 110 to the 
centre of the screen. 


The Listing 


1@ REM String art pattern generator, in 
four quadrants of the screen. 

20 REM This will run in any graphics mode, 
but modes © and 4 are best. 

30 REPEAT 

40 AS= LLL) 

Sse CLS 

60 U=20: V=40 

7@ X=RND(640)—-1: Y=RND(S512)-1 

80 L=RND (640) —-1:5M=RND(512)-1 

9@ A=U-RNDC(V) s B=U-RND(V) 

190 C=U-RND CV) : D=U-RND (CV) 

11@ VDU 29, 6490;512; 

1206 REPEAT 

136 PROCDRAW(X, Y,°,M,5) 

140 IF (X#A)>639 OR (X+A)<@ A=—-A 

4156 IF (¥+B)>511 OR (Y+B)<e B=—-B 

160 IF (1.40)>639 OR (L+0)<o C=-CE 
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£790 
180 
190 
2a08 
2192 
220 
230 


IF (M#D)>511 OR (M+D)<o D=-D 

X=X+A: Y=Y+B 

L=L+C:M=MN+D 

IF INKEYS(@6)<>"" THEN A$=GETS 

UNTIL AS=CHRS (9) 

UNTIL FALSE 

REM MEK KKK KE MH HH HHA KKKARKHEAKRAKREREE HEE E 


HEAEK THEE EEKEEKRERHERRKEKREREKRERE 


240 
250 
260 
272 
2B9 
270 
300 
316 
320 


DEF PROCDRAW(X, Y,L,M,K) 
LOCAL ones, twos 

FOR ones=—-1 TO 1 STEP 2 
FOR twos=-1 70 1 STEP 2 
MOVE ones*X, twos*yY 

PLOT K,ones#L, twos*M 
NEXT 

NEXT 

ENDPROC 
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This program will only run on a Model B, since it runs in mode 2. 

It draws two sets of ovals, side by side on the screen. These ovals 
are in different colours, each being made up of colours 2 to 15, 
overlapping and getting smaller towards the centre. The colours 
are in a different order for the two ovals — the one on the right has 
them going in ascending order from the outside, and the one on the 
left has them in descending order. 

Once the two ovals have been set. up, the remainder of the 
program is much like ‘Cartwheel’, in that the colours are switched 
from black to another colour and back again. 


The Listing 


1@ MODE 2 

20 P=5 

30 C=4 

40 FOR fF=14 TO 1 STEP -1 

5@ FOR G=e TO i 

60 IF G=@ THEN GCOL ®,T ELSE GCOL @,15-T 
78 PROCcircle (320+640#G, 512, T#3Q) 
80 NEXT G 

90 NEXT T 

160 VDU 19,15,1,0,9,0,0 

1190 VDU 5S 

120 GCOL @,15 

130 MOVE 200,512 

140 PRINT "BBC Computer" 

15@ REPEAT 

16@ FOR T=1 TO i4 

170 #FX 15,90 

1B@ SOUND i,~15, 7T*¥10+100, 255 
190 SOUND 2,-15,7*10+101,255 
200 SOUND 3,-15, 7#190+102, 255 
210 VDU 19,T,C,0,9,2 
220 TIME=¢e 
239 REPEAT UNTIL TIME>P 
240 NEXT F 
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2593 
2690 
2706 
2Be 
2970 
308 
3108 
320 
330 
340 
350 
360 
370 
3BO 
370 
400 
419 


FOR T=14 TO 1 STEP -1 

*FX 15,9 

SOUND 1,—-15, T#190+166, 255 
SOUND 2,-15, T*¥10+101,255 
SOUND 3,-15, 7T*190+1902, 2755 

VDU 19,1T,C,0,9,2 

TIME=9 

REPEAT UNTIL TIME>P 

VDU 19,7T,%,9,0,9 

NEXT T 

C=1+RND (6) 

UNTIL FALSE 

DEF PROCcircle(xco, yco,radius) 
LOCAL angle,step 

step=15 

FOR angle=0 TO 36@ STEP step 
MOVE SIN(RAD (angle) ) #radius/2+xco, COS ( 


RAD (angle) ) *#radiust+yco 


420 MOVE SIN(RAD (angletstep) ) *radius/2+xca, 
COS (RAD (angletstep) ) *radiust+yco 


430 
440 
450 


PLOT 85,xco,yco 
NEXT angle 
ENDPROC 
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This program is our final fling. There are no line-by-line notes, no 
suggestions for improvement. Key it into your model A or B, type 
RUN; sit back. We think you will be surprised at the result. 


1@ MODE 7:VDU 23382023 030; 03 = R%=128+RND (5): 
FORTY=0TO23= VDUS1, @, T%, R%ZENEXTT% 

2@ DATA AA, AA, 41, 41, 88, 88, 14, 14,88, 08, 41,41, 
A@, 82,50, 04, AA, AB, 55, 0e 

3@ DATA AA, 80,55, 00, 2A, BO, £5, 40, GA, AG, OS, 50, 
02,08, 01,14, 02, 22, 04, 41, AA, AG 

4@ DIMC% (17, 21) : FORY%=1T071:FORT%=e0TO1: 
READAS: AZ=EVAL ("&"+A$) s FORGZ=OTO7 

5®@ IF (AZAND2*G%) < >@THENCZ (TZ B+8-B%, YZ) =1 

6@ NEXTG%, T%: IF CY“MODZ) =1 THENC% (17, Y%) =1 

7@ NEXTY%:FORT“Z=1 T0357 : REPEATX%=RND (17) s YZ= 
RND (21) s UNTELOZ(X%, YX) <>2 

8@ IFCZ%(X%, Y%) =1 THENVDUS1, X%410, YZ42, 255 

9@ C“L(X%, YL) =2: TIME=@: REPEATUNTILTIME>10: 
NEXTT%: AZ=INKEY (10@@) : CLS: CH=&BFOO 

10@ PRINT TAB(@, 24); CHRS(132)3"Wait a little. 


110 FORT=07T014: READA: X=(T MOD 35) *8:Y=(T DIV 3S 
)*B 

120 FS=CHRS (128) : BS=CHRS (128+RND (35) > = CSH=CHRS ( 
A) = FORR=0TO?7: VDUS1,X,Y+R 

130 FORC=7TOOSTEP—t: IF (7 (CHtASC (CS) #B+R) ANDZ 
“C)=2°C PRINTFS; ELSEPRINTBSs 

14@ NEXTC,R, Ts PRINTTAB(O, 24) SSTRINGS(39," ")35 
: REPEAT =: X=RND (40) —-1: Y=RND (25) —1: REPEAT: L=SGN( 
RND) -= M=SGN (RND) 

15@ UNTILL< >@ANDMK< >@: REPEAT = P=HIMEM+Y*40+X =: T= 
?P: ?P=42: TIME=@: REPEAT 

160 UNTILTIME>S>3: IF T=128THENT=255 

170 ?P=Ts: X=X+Ls Y=Y+M: UNTILX<OORY< OORX >39ORY>2 
4:UNTILFALSE 

186 DATA 32,84, 104, 101, 32,32,111,119, 108, 32,1 
14,117,108,1@1,115 
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Typing in Program Listings 
*« When you type in a statement, press the RETURN key only 


when you come to the end of the complete statement line, not when 
you come to the end of a line on the printed page. 


If the statement line is simply a message and you do not type it 
in exactly as you see it (for example, you do not preserve the 
number of spaces between words), the program will still run though 
the message will not look very pretty. 


« Sometimes spaces are vital in BASIC words. For example, the 
first bracket after TAB must follow on immediately without a 
space. When in doubt, consult the User Guide. 


» Where a ‘picture’ is being drawn on the screen using symbols 
such as ‘+’, it is important to type in what you see accurately but 
not literally. Spaces are very important here, and you can count 
them with the aid of the character count scale on page 157, which 
may be cut out for use to make it portable. 
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Character Count Scale (cut out to use) 


NOTES 
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NOTES 
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tl 


| I | Ml ri 


| | 
(yy fi | | ! i 


| ii | i 


The Book of Listings contains many — and 


All are discussed and documented. Careful 
explanations allow you to modify or extend the 
programs and are also helpful tutorials on practical 
programming. Many of the programs run on both 
Models A and B. Play such classics as Reversi, 
Gomoku and Eliza; word and number games; 
adventure games and graphic programs. See the 
computer write ‘Franglais’ or compose poetry in its 


inimitable way! Simply type in each program, save 
it, then run it and enjoy yourself. 


entertaining programs for the BBC microcomputer. 


